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UNCLASSIFIED  ABSTRACT 


,  . 

(U)  This  technical  report  describes  analyses  and  techniques  used 
in  the  design  and  evaluation  of  advanced  decoy  concepts.  The  work 
described  addresses  both  the  design  of  specific  penetration  aid 
elements  and  the  formulation  of  techniques  for  their  evaluation. 
The  three  major  technical  areas  covered  in  this  report  are: 

|e  Investigation  of  a  penetration  aid  technique  that  degrades 
the  measurement  capability  of  the  radar  sensor. 

,h  "  ■  . 

The  design  of  a  computer  program  to  solve  the  decoy  design 
problem  with  flexibility  in  the  selection  of  optimization 
criteria  and  constraints .  3  *i  J 

^ in1 * * Hit  in *  h  „  (ii  ,,M|  „  t  M(- , *IIU ,  

3*  "Studies  of  the  use  of  certain  discrimination  techniques 
for  a  hard  point  defense  system. 
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This  appendix  to  this  report  contains  detailed  description  of  the 
optimum  decoy  design  program.  , 
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Introduction 


1.  1 

The  Optimum  Decoy  Design  Program  selects  optimum  decoy 
configurations  which  meet  specified  performance,  weight,  and  geometric 
constraints.  The  technique  used  to  determine  the  optimum  values  of 
the  decoy  design  parameters  is  the  sequential  minimization  o'  a  penalty 
function  formulated  from  the  differences  between  certain  characteristics 
of  the  reentry  vehicle  and  those  of  the  decoy  as  well  as  constraints  on 
the  decoy  itself. 

The  four  optimization  techniques  available  for  determining 
minima  are: 

1.  A  Fibonacci  one  variable  search. 

Z.  A  Fibonacci  two  variable  search. 

3.  The  Davidon  variable  metric  method, 

4.  The  Rosenbrock  rotating  coordinate  method. 

The  function  to  be  minimized  is  generated  using  the  results 
of  the  trajectory  calculations  (which  include  the  effects  of  mass  loss, 
noseblunting,  and  angle  of  attack),  the  wake  observables  approximations, 
and  the  effectiveness  operations.  An  option  exists  which  enables  the 
bypassing  of  the  optimization  process  and  the  direct  evaluation  of  the 
penalty  function. 

This  document  contains  the  description  of  the  numerical  methods 
employed,  the  correlation  of  program  segments  with  their  functional 
description,  and  a  complete  listing  of  the  source  symbolic  program  and 
preset  deck.  This  report  was  prepared  by  R,  A,  MacFarlane  and  E.R. 
Nickerson  with  the  assistance  of  J,  F.  Connors  and  R.  E.  Housman. 


The  organization  of  the  program  and  the  relationships  between 
the  various  subroutines  are  shown  in  the  following  flow  charts  of  the 
Main  program  and  the  optimization  logic  of  the  function  evaluator 
routine. 
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1.2  MAIN  PROGRAM 


p 
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1.  Purpose 

MAIN  directs  the  calculation  of  optimum  values  for  the  design 
parameters  of  a  decoy.  The  technique  used  is  to  minimize  the  differences 
between  certain  characteristics  of  a  reentry  vehicle  and  the  same 
characteristics  for  a  decoy.  In  this  version,  the  following  nine  character¬ 
istics  may  be  used.  Velocity,  deceleration,  ballistic  coefficient,  wake 
length  at  each  of  three  radar  frequencies  and  wake  cross  section  at  each 
of  these  frequencies.  » 

Four  methods  of  finding  these  minima  are  available. 

1.  A  Fibonacci  one  variable  search.  a 

2.  A  Fibonacci  two  variable  search. 

3.  The  Davidon  method 

4.  The  Rosenbrock  rotating  coordinate  method. 

A  quantity  PD,  the  probability  that  a  decoy  will  be  discriminated, 
can  also  be  calculated. 
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2.  Input 


^indicates  integer  quantity 


Source 

Common 

Block 

Preset 

Value 

Description 

AL0W,  2u 

ZREADX 

MIN 

0.  0 

vector  of  lower  bounds 

CTP,  2i' 

ZREADX 

MIN 

0.0 

vector  of  upper  bounds 

ID1,  50* 

ZREADX 

IDN0S 

0 

identification  of  design 
variable 

ID 2,  50* 

ZREADX 

IDN0S 

0 

identification  of  constraints 

IMPL0T* 

SR2490 

I0CCUR(3O9) 

0 

test  parameter  for  AVPLT 

IN  * 

ZREADX 

I0PT 

1 

number  of  parameters  being 
obtained 

I0P,  90  * 

ZREADX 

I0CCUR(1-9O) 

1 

option  parameter 

IPR0C * 

ZREADX 

I0PT 

1 

test  parameter  for  choosing 
optimizer 

IREF  * 

ZREADX 

I0CCUR(3O1) 

1 

test  parameter  for  type  of 
vehicle 

KRED  * 

REDUCE 

- 

test  parameter 

LIMIT* 

ZREADX 

I0PT 

30 

iteration  counter 

LRED  * 

ZREADX 

OWL 

0 

iteration  upper  limit 

M0DE  * 

ZREADX 

I0CCUR(3O3) 

3 

test  parameter 

N PRINT  * 

READIT 

NGCCUR(  14} 

1 

print  option 

0CCUR,  4000 

0CCUR 

common  array 

OVECT,  20 

ZREADX 

0WL 

5.0 

initial  values  of  design 
variables 

WRF 

ZREADX 

0WL 

0.9 

reduction  factor 

X1SAVE,  40 

GMIMAX 

XXSAVE 

optimum  values  of  XX'  1) 

X2SAVE,  40 

GMIMAX 

XXSAVE 

all  values  of  XX(2) 

1-7 


ALB,  20 

MINSK 

- 

D 

CCRN 

0.0 

DELTA 

F0PT 

1.0 

FAC 

F0PT 

1.0 

ILL  11  * 

1 

IMPL0T  * 

I0CCUR,  309 

0 

IRED  * 

- 

- 

K  * 

MINSK 

0 

K0UNT * 

XXSAVE 

- 

M0DE  * 

I0CCUR,  303 

3 

UB,  20 

MINSK 

- 

P 

BLK0 

0.0 

UP,  20 

MIN 

- 

WRF 

0WL 

- 

X,  40 

BLK0 

- 

XX,  20 

MINSK 

vector  of  lower  bounds 
see  SCREEN 

see  DAVD0N  output 

if  greater  than  0.  0,  the  value  given 
to  diagonal  elements  of  H  matrix 
used  in  DAVD0N. 

test  parameter  for  READIT 

see  READIT 

iteration  counter 

not  used 

iteration  counter 

test  parameter  for  F123 
vector  of  upper  bounds 
see  DAVD0N  output 
vector  of  upper  bounds 
reduction  factor 
see  DAVD0N  output 

see  GMfMAX  output 


4.  Numerical  Procedures 


As  a  first  step,  SUBROUTINE  WHERE  is  called  to  allocate  space 
needed  for  the  input.  Then  subroutines  SR 2490  and  ZPRM  are  called 
to  preset  the  values  of  certain  quantities,  primarily  input  quantities. 

Next,  the  statements  between  CALL  ZPRM  and  statement  2  preset 
additional  quantities. 

At  statement  2,  SUBROUTINE  READIT  is  called  to  obtain  the 
input  for  one  case.  The  ILL111,  used  by  READIT,  is  changed  to  two 
and  M0DE  is  tested.  Control  is  then  transferred  to  100,  110  or  120 
when  M0DE  is  1,  2  or  3  respectively. 

If  statement  100  is  reached,  a  single  trajectory  will  be  calculated, 
but  no  optimization  will  be  attempted.  First,the  value  of  IREF,  which  Is 
needed  by  FI 23,  is  saved  as  IREFS.  I0P(74)  is  set  equal  to  zero  so  that 
no  calculations  relating  to  wake  length  or  wake  cross  section  will  be 
performed.  Then  FI 23  is  called  to  secure  the  trajectory  data,  the 
original  value  of  IREF  is  restored,  then  control  goes  to  statement  2  to 
read  the  input  for  the  next  case. 

At  statement  110,  FI  23  is  again  called,  but  this  time  the  number 
of  trajectories  calculated  will  depend  on  the  input.  In  addition,  two  types 
of  integrals  may  be  calculated  and  plots  may  be  produced.  No  optimization 
of  decoy  parameters  is  attempted.  After  FI 23  Is  called,  control  returns 
to  statement  2  to  obtain  input  for  the  next  case. 

At  statement  120,  the  integer  code  IREF  1*  tested.  If  IREF 
equals  2,  statement  5  is  executed  next.  If  IREF  equals  1  or  3,  FI 23  is 
called  to  obtain  data  for  a  reference  reentry  vehicle  trajectory  and  control 
goes  to  statement  2  to  transmit  the  input  for  the  next  case. 


If  statement  5  is  reached,  optimization  of  decoy  design  parameters 
will  be  attempted.  IRED,  an  iteration  counter,  is  set  equal  to  -1,  The 
next  three  statements  save  quantities  which  may  be  changed  in  the  optimiza¬ 
tion  process  so  that  they  can  be  restored  later.  Then,  in  the  DO  loop 
ending  at  statement  10,  the  values  of  the  first  IN  elements  of  the  input 
array  0VECT  are  stored  in  the  0CCUR  array,  the  X  array,  and  the  XX 
array  for  use  by  other  subroutines.  Then  statement  20  is  reached. 


At  statement  20,  control  is  transferred  to  statement  500,  600,  700, 

800  or  850  when  IPR0C  is  respectively  1,  2,  3,  4  or  5. 

If  statement  500  is  reached,  the  Fibonacci  one  variable  procedure  will 
be  used.  SUBROUTINE  MIMAX  is  called  to  control  the  calculations  and 
then  ITERM  is  tested.  If  ITERM  equals  1,  statement  200  is  executed 
next.  Otherwise,  NPRINT  is  saved  as  NPSAVE,  then  NPRINT  is  set  equal 
to  1  and  SUBROUTINE  FEV  is  called.  SUBROUTINE  FEV  calls  SUBROUTINE 
FI 23  to  get  the  trajectory  corresponding  to  the  solution  and  print  extra 
output  relating  to  this  trajectory.  Then  the  original  value  of  NPRINT  is 
restored  and  control  is  transferred  to  statement  900, 

At  600,  NPRINT  is  stored  as  NPSAVE,  then  reset  to  1  and  FEV  is 
called  to  obtain  trajectory  data.  NPRINT  is  then  restored  and  control 
goes  to  statement  900. 

At  700,  SUBROUTINE  DAVD0N  is  called  to  use  the  Davidon 
optimization  method.  Then  ITERM  is  tested.  If  ITERM  equals  1, 
control  passes  to  statement  200.  Otherwise,  control  passes  to  900, 
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At  800,  SUBROUTINE  R0SBRK  is  called  to  use  the  Rosenbrock 
rotating  coordinate  method.  The  sequence  of  statements  executed  after 
the  call  to  R0SBRK  is  the  same  as  that  following  the  call  to  M1MAX 
explained  above. 

At  850,  the  Fibonacci  two  variable  method  is  used.  The  values 
of  the  lower  bound  vector  ALB  and  the  upper  bound  vector  UB  to  be 
used  by  SUBROUTINE  GIMAX  are  defined  in  the  D 0  loop  ending  at  860. 
K0UNT,  an  iteration  counter  used  by  SUBROUTINE  GIMAX  is  set 
equal  to  zero.  Then  GIMAX  is  called  to  do  the  optimizing.  Then,  if 
ITEP.M  equals  1,  control  goes  to  200.  Otherwise,  in  the  D0  loop  ending 
at  666,  the  elements  of  the  XX  array  are  tested  to  see  if  XX(I)  equals 
X2SAVE(I)  for  any  I.  If  an  equality  is  found,  XX(1)  is  set  equal  to 
XISAVE(I)  and  control  passes  to  870.  If  no  equality  is  found,  the 
WRITE  statement  following  666  causes  an  error  message  to  be  written 
and  statement  870  is  reached. 

At  870,  NPRINT  is  saved  as  NPSAVE  and  reset  to  1  to  provide 
extra  print  out.  FEV  is  called  to  get  trajectory  data  corresponding  to 
the  two  values  in  the  solution.  Then  control  passes  to  statement  900. 

At  statement  900,  SUBROUTINE  REDUCE  is  called  to  tighten 
constraints.  Then  the  values  of  KRED  and  ITERM  are  printed.'  Next, 
KRED  is  tested.  If  KRED  equals  zero,  go  to  statement  20  to  iterate 
Otherwise,  statement  200  is  reached,  the  quantities  saved  earlier  are 
restored  and  control  goes  to  statement  2  to  get  input  for  the  next  case. 


1 1 . . .  IMHH . . . .  lllll-l . . . Mil 


Other  Information 


A.  MAIN  is  not  called  by  any  other  routine. 

B.  MAIN  calls  the  following  subroutines: 

1.  SUBROUTINE  DAVDtfN 

2.  SUBROUTINE  FI 23 

3.  SUBROUTINE  FEV 

4.  SUBROUTINE  GIMAX 

5.  SUBROUTINE  MIMAX 

6.  SUBROUTINE  RtfSBRK 

7.  SUBROUTINE  SR 2490 

8.  SUBROUTINE  ZPRM 

9.  the  library  subroutine  WHERE 


1.3  Input  Subroutines 


The  input  for  the  Optimum  Decoy  Design  Program  is  handled 
by  two  subroutines  -  READIT  and  ZREADX.  SUBROUTINE  READ 
IT  deals  primarily  with  inputs  needed  for  the  trajectory  cal¬ 
culation.  Inputs  for  the  optimization,  wake,  and  effectiveness 
operations  appear  in  ZREADX. 


I 
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SUBROUTINE  READIT  (ILL11 1,  1MPL0T) 


1.  Purpose 

SUBROUTINE  READIT  reads  in  the  input  for  one  case  and  tests  certain 
values  in  the  I<#P  array. 

2.  Input 
’"’"’"NOTE*** 

(1)  The  source  of  all  inputs  to  READIT  except  I0P  is  SUBROUTINE  SETUP. 
I0P  is  from  SUBROUTINE  ZREADX. 

(2)  ’"indicates  an  integer  quantity  and  an  N0CCUR  location  unless  otherwise 
designated. 

(3)  Numbers  in  the  COMMON  LOCATION  column  refer  to  locations  in  the 
0CCUR  array  unless  otherwise  designated. 


Name 

Symbol 

Common 

Location  Preset 

Description 

A,  514 

Ai 

301-814 

curve  fit  coefficients 

AE 

A 

e 

214 

2 

thrust  nozzle  exit  area,  ft 

ALPTAB,  75 

a(  table) 

3646-3720 

input  angle  of  attack  table, 
degrees 

ALST 

a„_ 

ST 

122  0.2 

stopping  angle  of  attack,  degrees 

AWREF 

A 

W  . 
ref 

188 

reference  area  of  the  WCDTAB 
drag  coefficient,  ft2 

B,  21 

Bi 

823-843 

curve  fit  coefficients 

BETA11 

P11 

152 

sublimation  rate  coefficient 
for  initial  h/s  material, 
ft/ sec  /  °R 

}' 

V 

IK] 

■I  iftfti1!  ■  1 1  ii'i,  ,,I|I 

J  | 

*  ,  ■ 

2.  Input  (Cont'd) 


Common 

Name 

Symbol 

Location 

Preset 

Description 

BETA12 

P12 

171 

sublimation  rate  coefficient 

for  h/s  material  after  shape 
change,  ft/sec /°R 

BETA21 

P21 

153 

same  as  for  BETA11,  ~ - » 

sec(°R)  3 

BETA22 

P22 

172 

same  as  for  BETA12, ~ — p- 

sec(°R)  3 

BETA31 

P31 

154 

order  of  reaction  for  initial 
configuration  h/s  material 

BETA32 

P32 

173 

order  of  reaction  for  h/s 
material  after  shape  change 

BETA41 

P41 

155 

activation  temperature  for 
initial  configuration,  °R 

BETA42 

P42 

174 

activation  temperature  for 

h/s  material  after  shape  change, 

°R 

C 

C 

115 

1.0 

multiplier  on  stagnation  point 

heating,  used  to  simulate  nose 
cap  of  a  different  material  than 
heatshield 


CAPG  G  19  32.21852  gravitational  acceleration, 

ft/sec2 

CASE  128  case  number 

CD0WN,  16  3549-3564  1.0D-5  lower  limit  -on  accuracy  of 

integrated  variables,  see 
VIXEN  writeup 

Citable)  3383-3457  tabular  input  total  drag 

coefficient 


CDTAB,  75 


2. 


Input  (Cont'd) 


Name 


Common 

Symbol  Location  Preset 


Description 


CHIGH,  16 


3533-3540  1,  OD-4  upper  bound  on  accuracy  of 

integrated  variable,  see 
VIXEN 


CMQIN1 

m 

q 

124 

CMQIM2 

c 

m 

q 

125 

CP21 

c 

P21 

160 

CP22 

C 

p22 

179 

CPG1 

CP 

161 

P«1 

CFG2 

,i* 

C 

p 

*2 

180 

DATE 

127 

DELHC1 

166 

DELCH2 

Ah  r 

185 

input  C  for  initial 
r  m 

configuration 

input  Cm  for  configuration 

q 

after  shape  change 

specific  heat  of  solid  for 
initial  configuration 

h/s  material,  — 

lbm°R 

specific  heat  of  solid  for 

h/s  material  after  shape  change, 

Btu 

lbm°R 

specific  heat  of  gas  for  initial 
configuration  h/ s  material, 

Btu 

lbm°R 

specific  heat  of  gas  for  configu- 
after  shape  change, 

lbm°R 

date 

heat  of  decomposition  for 
initial  h/s  material,  Btu/lbm 


9 


9 


♦ 


* 
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heat  of  decomposition  for  h/s 
material  after  shape  change 
Btu/lbm 


2.  Input  (Cont'd) 


Name 

DELIN 

DELRHI 

DELRH2 

DELY 

DELZ 

DNBNDZ 

EMt> 

EPSILI 

EPSIL2 

FI 

F2 

G 


"1 


Symbol 


Common 

Location 


187 

159 


Preset 


-2000. 0 


Description 

maximum  allowable  delta  of 
integration,  feet 

j 


difference  between  the  virgin 
and  char  density  of  initial 
h/s  material,  lbm/ft3 


1 

i 

I 


178 


&,  Y  219 


difference  between  the  virgin 
and  char  density  of  h/s  material 
for  configuration  after  shape 
change,  lbm/ft3 

linear  component  of  thrust 
offset,  inches 


A  Z  220 

248 

"S  .  129 

C  j  167 

*2  M 

fx  157 

f2  176 


linear  component  of  thrust 
off  set,  inches 

lower  altitude  boundary  on 

use  of  tabular  input  atmosphere, 

feet 

memo  number 

coefficient  of  emission  for 
initial  h/s  material 

coefficient  of  emission  for 
h/s  material  after  shape  change 

heat  of  ablation  for  the  initial 
h/s  material,  Btu/lbm 

heat  of  ablation  for  the  h/s 
material  after  shape  change, 
Btu/lbm 


g  27  32.  174 

i 
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t 


conversion  factor  for  changing 
■lugs  to  lbm,  lbm/slug 


j 


iff 


11 


1  . .  jlj 

1  , 


t 


2.  Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

Description 

GAMFO 

Y 

fo 

105 

initial  flight  path  angle, 
degrees  (negative  number) 

GAMMA 

r 

28 

1.4 

ratio  of  specific  heats 

HREF1 

Href1 

156 

constant  which  equals  zero 
for  no  combustion  ablation 

HREF  2 

Hr«l2 

175 

constant  which  equals  zero 
for  no  combustion  ablation 

HTAB,  75 

Z  (table) 

3233- 

3307 

tabular  altitude  used  with 

CD  TAB  and  ALPTAB,  feet 

IATM0S 

08  * 

input  atmosphere  option  code 

IKCMQ 

09  * 

input  Cm  option  code 

INALPH 

30  * 

9 

input  angle  of  attack  option 

I0P,  90 

I0CCUR 

(1-90) 

1.0 

control  codes  which  call  for 
various  plots,  influence 
coefficients,  corridor  printouts 

ISP 

I 

SP 

222 

1.0 

specific  impulse 

ITAPE 

29  * 

option  for  V,  p,  Z  output  tape 

tTUD  CT 

23  * 

number  of  values  in  the 
thrust  table 

LAI 

La^ 

138 

axial  length  of  the  initial 
vehicle  configuration.  Inches 

LA2 

La2 

144 

axial  length  of  the  vehicle 

immediately  afte.*  shape  change 
at  ZTURN,  in. 
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2,  Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

Description 

LAMDA1 

137 

bluntness  ratio  of  initial 
vehicle  configuration 

LAMDA2 

^  2 

143 

bluntness  ratio  of  vehicle 
immediately  after  shape  change 
at  ZTURN 

L0PT 

07  * 

1 

trajectory  option  code;  Bee 
other  information 

MATLN1 

20  * 

1 

heatshield  material  option 
code  for  initial  configuration 

MATLN2 

21  * 

1 

heatshield  material  option 
code  for  vehicle  after  shape 
change 

MAX  CO 

18  * 

the  number  of  values  in  the 

CD  TAB  table 

MAXVAL 

06  * 

the  number  of  values  in  the 
input  trajectory  or  wind 
tunnel  conditions  table 

MAXWCD 

19  * 

the  number  of  values  in  the 

W  CD  TAB  table 

MHEAT 

10  * 

0 

option  code  which  controls 
mass  loss  calculation 

M(5PT 

03  * 

0 

option  code  which  controls 
calculation  of  aerodynamic 
heating 

MW 

M 

w 

117 

28.9 

molecular  weight  of  air,  28. 9 
gram/  mole 

1  number  of  values  in  X  / D,  I, 

c.  8 

and  I  tables  for  first  configure 
tion  X 


MXTAB1 


16  * 


2. 


Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

Description 

MXTAB2 

17  * 

1 

number  of  values  in  X  /D, 

eg. 

I,  and  I  tables  for  configura¬ 
tion  after  shape  change 

NGE0M 

15  * 

1 

geometry  input  option  code, 
indicates  which  geometric 
parameters  are  being  input 

NGL1 

K  GLj 

164 

laminar  transpiration  factor 
of  gas  for  initial  h/s  material 

NGL2 

^gl2 

183 

laminar  transpiration  factor 
of  gas  for  h/s  material  after 
shape  change 

NGTI 

'(  GT1 

165 

turbulent  transpiration  factor 
of  gas  for  initial  h/s  material 

NGT2 

CM 

H 

o 

184 

turbulent  transpiration  factor 
of  gas  for  h/s  material 
after  shape  change 

N0SE0P 

05  * 

noseblunting  option  code 

NPL0T,  5 

24-28  « 

plotting  option  codes  for 
trajectory  parameters 

NPRINT 

14  * 

1 

trajectory  printout  option 
code 

NSL1 

A.  SLj 

162 

laminar  transpiration  factor 
of  solid  for  initial  h/s  material 

NSL2 

4  sl2 

181 

laminar  transpiration  factor 
of  solid  for  h/  s  material  after 

shape  change 
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2.  Input  (Cont'd) 

Name  Symbol 

Common 

Location 

Preset 

Description 

mo  A  1 

/ISTl 

lb3 

turbulent  transpiration  factor 
of  solid  for  initial  h/a  material 

NST2 

182 

turbulent  transpiration  factor 
of  solid  for  h/s  material  after 
shape  change 

NTHRUST 

0CCUR,  4000 

22  * 

1-4000 

0 

^hrustintr  option  code;  see 
other  information 

array  containing  all  variables 
relating  to  trajectory 
calculation 

P0 

P 

0 

109 

initial  angular  rate,  rad/sec 

PHIO 

*o 

112 

initial  value  of  Euler  angle,  (j) 
degrees 

PSIO 

% 

1J4 

initial  value  of  Euler  angle, 
degrees 

PSIZET 

% 

223 

thrust  offset  angle,  degrees 

Q0 

0 

no 

initial  angular  rate,  rad/sec 

R 

R 

057 

53.5 

„  ,  ft»lb 

gas  constant  for  air,  — — 

lbm-°R 

RBI 

Rbx 

136 

base  radius  for  initial  vehicle 
configuration,  in. 

RB2 

Rb2 

142 

base  radius  of  vehicle 
immediately  after  shape  change 
at  ZTURN,  in. 

RE 

R 

e 

063 

2, 090299D+7 

earth's  radius,  feet 

RH021 

f  21 

158 

char  density  for  the  initial 
h/a  material,  lbm/ft3 

2.  Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

Description 

RH022 

Pll 

177 

char  density  for  the  h/ s  material 
after  shape  change,  lbm/ft 

RN1 

Rn^ 

135 

nose  radius  of  initial  vehicle 
configuration,  in. 

RN2 

Rn2 

141 

nose  radius  of  vehicle  con¬ 
figuration  after  shape  change, 
in. 

SIG 

cr 

116 

3.5 

collision  cross  section  for  air, 
angstroms 

SMRO 

R 

0 

111 

angular  rate  R,  rad/sec 

TO 

T 

0 

102 

initial  time,  sec. 

TABU,  50 

I^table) 

2933-2982 

1.0 

moment  of  inertia  1  =  1  or 

yy 

I  for  initial  configuration, 
zz  ^ 

slug-ft 

TAB  12,  50 

I2 (table) 

2983-3032 

1.0 

moment  of  inertia,  1,  for 
vehicle  configuration  after 
shape  change,  slug-ft^ 

TABIX1,  50 

j  (table) 
X1 

3033-3082 

1.0 

the  transverse  moment  of 

inertia  I  for  initial  con- 
xx  2 

figuration,  slug-ft 

TAB  1X2,  50 

1  (table) 
X2 

3083-3132 

1.0 

the  transverse  moment  of 
inertia  1^  for  configuration 

after  shape  change,  slug-ft 


TABRH0,  50 
TABSND, 50 


/■ 


(table) 


3771-3820 


a  (table)  3821-3870 
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tabular  input  free  stream 
density,  lbm/fi 

tabular  input  free  stream  speed 
of  sound,  ft/  sec 
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•nmi 


4 

2.  Input  (Cont'd) 


Common 


Name 

Symbol 

Location  Preset 

Description 

TABZ1,  50 

Z^(  table) 

3133-3182 

tabular  altitude  for  use  with 

input  X  /D,I,  and  I  tables 
eg-  x 

of  first  configuration,  feet 

TABZ2,  50 

Z^(  table) 

3183-3232 

tabular  altitude  for  use  with 

irputX  /D,  I,  and  I  tables 

x 

for  the  configuration  after 
shape  change,  feet 

TBATMZ,  50 

Z(  table) 

3721-3770 

tabular  input  altitude  for  use 
with j and  a  tables,  feet 

4 

TCRIT 

*crit 

077 

angle  of  attack  cycle  time 
test  parameter,  Bee. 

TECG&N 

t 

econ 

078 

angle  of  attack  cycle  time 
test  parameter,  sec. 

f 

THO 

Th 

o 

207 

reference  thrust  level,  lb. 

THDELT,  25 

t-t 

on 

3618-3642 

the  time  from  thrust  onset, 
ah  abscissa  of  THTH0  table 

THDELZ,  25 

z  -  z 

on 

3593-3617 

change  in  altitude  from  thrust 
onset, an  abscissa  of  THTH0 
table 

THEALO 

e 

a 

o 

113 

initial  Euler  angle  (£3)  ,  degrees 

a 

THETA1 

134 

cone  half  angle  of  initial  vehicle 
configuration,  degrees 

THETA2 

e 

2 

140 

cone  half  angle  of  vehicle 
configuration  after  shape  change, 
degrees 

4 

nn  ijrup*  up*  wn 

41  ~.ilTiit  CiZ*  X 

0 

* 

224 

thrust  misalignment  angle, 
degrees 

r 
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z. 


Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

THTHO,  25 

Th/Th 

0 

3568  -3592 

non-dimensional  thrust  input 
table 

UNIT 

T. 

imt 

132 

500. 

initial  internal  body 
temperature,  R 

T0FF 

'’off 

209 

time  of  thrusting  shut  off,  sec. 

T0N 

t 

on 

208 

time  of  thrusting  onset,  sec. 

TRAJRN,  75 

Rn(  table ) 

1644-1718 

nose  radius  table  for  input 
trajectory  option,  must  be 
input  in  addition  to  RN1,  in. 

TRAJT,  75 

t(  table) 

1344-1418 

time  table  for  the  input 
trajectory  option,  sec. 

TRAJV,  75 

V(  table) 

1494-1568 

velocity  table  for  the  input 
trajectory  option,  ft/sec. 

TRAJW,  75 

W(  table) 

1569-1643 

vehicle  total  weight  table 
for  input  trajectory  option,  lb. 

TRAJZ,  75 

Z(  table) 

1419-1493 

altitude  table  for  input 
trajectory  option,  feet 

TRJALP,  75 

a(  table) 

1719-1793 

angle  of  attack  table  for 
input  trajectory  option,  degrees 

TRZTR 

zt 

tr 

243 

input  transition  altitude,  feet 

TST 

*st 

123 

100. 

trajectory  stopping  time, 
seconds 

TWI 

T 

W 

WI 

149 

1200. 

initial  wall  temperature  for 
first  vehicle  configuration, 

°R 


2.  Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

Description 

TW2 

T 

W 

2 

168 

1200. 

initial  wall  temperature  for 
vehicle  configuration  after 
shape  change 

TWST 

T 

W 

ST 

148 

580. 

effective  wall  temperature 
used  in  free  molecule  drag 
calculation 

TXCGD1,  50 

ix  /O) 

eg  1 

( table ) 

2833-2882 

X  /D  table  for  initial 
eg. 

vehicle  configuration 

TXCGD2,  50 

(X  /°J 
eg  2 

(table) 

2883-2932 

X  /D  table  for  configuration 
eg. 

after  shape  change 

UPBNDZ 

247 

upper  altitude  boundary  on 
use  of  tabular  input  atmosphere 
feet 

VO 

V 

o 

106 

initial  velocity,  ft/  sec 

Wl 

W1 

133 

initial  weight  of  the  vehicle 
first  configuration,  lb. 

W2 

W2 

139 

initial  weight  of  the  vehicle 
configuration  after  shape 
change,  lb. 

WCDTAB,  75 

CD(  table) 

3458-3532 

input  total  drag  coefficient 
table 

WHTAB,  75 

Z(table) 

3308-3382 

input  altitude  table  abscissa 
of  WCDTAB  table 

WTMINF,  75 

M  (table) 

1119-1193 

input  Mach  number  table  for 

wind  tunnel  conditions  options 


« 


2.  Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Preset 

Description 

WPT0T,  75 

P,  .  .(table)  1269-1343 
total 

input  total  pressure  table  for 
wind  tunnel  conditions  option, 
lb/ft2 

WTRINF,  75 

R  /ft(  table)  1194-1268 
e 

input  Reynolds  number  per 
inch  table  for  wind  tunnel 
conditions  option 

WTZ,  75 

Z{  table ) 

1044-1118 

input  altitude  table  abscissa 
of  WTMINF,  WP.TjDT,  WTRINF 
and  ALP  TAB  used  in  wind 
tunnel  ronditions  option 

X1L0W 

^LOW 

240 

0.2 

value  of  the  rarefaction 
parameter  which  is  the  lower 
boundary  of  fairing  region 
between  free  molecule  and 
strong  interaction  flow  regimes 

XIUP 

*1 

UP 

239 

0.4 

value  of  the  rarefaction 
parameter  which  is  the  upper 
boundary  of  fairing  region 
between  free  molecule  and 
strong  interaction  flow  regimes 

XL0W 

y 

A  LOW 

238 

4.0 

the  value  of  the  interaction 
parameter  which  is  the  lower 
boundary  of  fairing  region 
between  strong  interaction 
and  continuum  flow  regimes 

XRO 

X 

r 

0 

107 

0.0 

initial  range,  ft. 

't 
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2.  Input  (Concl'd) 


Common 


Name 

Symbol 

Loc  ation 

Preset 

Description 

XUP 

X 

AUP 

111 

6.0 

the  value  of  the  interaction 
parameter  which  is  the  upper 
boundary  of  fairing  region 
oetween  strong  interaction 
and  continuum  flow  regimes 

ZO 

z 

o 

108 

initial  altitude,  feet 

ZBAR 

Z 

120 

-10000. 

altitude  at  which  printout 
altitude  increment  changes,  feet 

ZETA 

P 

093 

0.9 

accomodation  coefficient 

Z0FF 

Zoff 

206 

altitude  for  thrust  shut  off, 
feet 

Z0N 

Z 

on 

205 

altitude  for  thrust  onset,  feet 

ZPR1 

118 

10000. 

initial  altitude  printout  increment, 
feet 

ZPR2 

119 

second  altitude  printout 
increment,  feet 

ZST 

ZST 

121 

0.0 

trajectory  stopping  altitude, 
feet 

ZTURN 

z^ 

turn 

145 

-1.0 

altitude  at  which  vehicle 
configuration  changes 
discontinuously,  feet 

NOTE:  IMPL0T  and  ILL1U  enter  from  MAIN  through  the  subroutine  argument 
list  and  are  control  codes. 
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The  output  from  READIT  is  identical  to  the  input  with  the  single 
exception  that  the  input  NTHRUST  is  given  the  output  designation  NTHRST. 

4.  Numerical  Procedures 

READIT  tests  ILL111  when  it  is  e.Tered.  If  ILL111  equals  one, 
statement  1  is  executed  next  and  if  1LL111  equals  two,  statement  2  is 
executed  next.  The  transfer  to  1  will  occur  only  the  first  time  READIT  is 
called. 


The  call  to  ZREADX  and  the  calls  to  SETUP  which  follow  statement 
1  provide  the  reading  subroutine  READIN  with  information  about  the  length 
and  dimension  of  all  input  quantities. 

At  statement  2,  SUBROUTINE  READIN  is  called  to  read  in  the  data 
for  one  case.  E  is  found  in  column  1  of  the  first  card  read,  statement  99 
is  executed  next.  If  not,  the  statements  between  the  sequence  of  statements 
starting  after  2  and  ending  at  88  determines  what  the  values  of  I0P(73)  and 
I0P(74)  should  be.  Then  subroutine  HEDING  is  called  and  the  control  goes 
to  98. 

At  99,  if  IMPL0T  equals  one,  AVPLT  is  called  to  close  the  plot 
file.  The  next  two  statements  put  an  end  of  file  mark  on  and  rewind  tape  8 
if  ITAPE  is  not  equal  to  aero.  Then  EXIT  is  called  to  terminate  the  computer 
run. 

At  98,  control  is  returned  to  the  main  program. 
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5.  Other  Information 

A.  SUBROUTINE  READIT  is  called  by  the  main  program  only. 

B.  SUBROUTINE  READIT  calls 

1.  SUBROUTINE  AVPLT 

2.  SUBROUTINE  ZREADX 

3.  SUBROUTINE  HEDING  from  the  AVCO  library 

4.  SUBROUTINE  READIN  from  the  AVCO  library 

5.  SUBROUTINE  SETUP  from  the  AVCO  library 

6.  the  IBM  system  subroutine  EXIT 

C.  The  values  of  the  control  codes  L0PT  and  NTHRST  (NTHRUST  input) 
have  the  following  significance: 

L0PT  *  0  3  degree  of  freedom  in  rotation  trajectory 

*  1  particle  trajectory 

3  2  simplified  angle  of  attack  trajectory 

*  3  input  trajectory  for  purpose  of  calculating  drag 

coefficient  for  specified  conditions 

■  4  input  wind  tunnel  conditions  table  to  calculate  drag 
coefficient 

NTHRST  «  0  no  thrust 

*  1  non-dimensional  thrust,  THTHO,  vs.  change  in 

altitude  from  ZfcN 

*  2  non-dimensional  thrust,  THTHO,  vs.  change  in  time 

from  T0N 

D.  The  matrix  of  the  I0P  option  codes  is  given  in  the  following 
table; 
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SUBROUTINE  ZREADX 


1.  Purpose 

SUBROUTINE  ZREADX  provides  information  about  the  size  and 
dimension  of  each  input  variable  it  refers  to.  This  information  is 
required  by  the  input  subroutine  READIN. 


2.  Input 

♦indicates  integer  quantities 

NOTE:  All  input  variables  are  from  SUBROUTINE  SETUP 

Common  Preset 

Name  Location  Description  Value 

AA,  27  PCCUR(  11571-1 1597)  coefficients  used  by  SUBROU-  AA(I)  =  1.  0 

TINE  ADD  under  the  designa-  if  I  is  3,  6, 

tion  E;  preset  in  SR2490  9,  ...27; 

otherwise 
AA(I)  *  0.  0 


AC0E,  140 

PCCUR{588 1-6020) 

coefficients  used  iu  SUBROU¬ 
TINE  MISC  to  define  the  free 
space  radar  cross  section  of 
the  decoy 

0.0 

AC0N 

NIMPUT 

exponent  for  scale  factor, 

1.0 

(CC0N)^^  on  transition 
electron  density  n^ 

AKW 

NIMPUT 

heatshield  conductivity  for 
wake  calculations  in  Btu/ 
(ft“°R-hr) 
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2.  Input  (Cont'd) 


Name 

Common 

Location 

Description 

Preset 

Value 

AL0W,  20 

MIN 

lower  limits  for  independent 
variables 

0.  0 

AMULT,  20 

MIN 

multipliers  for  each  term  in 
the  penalty  equations  in  FEV 

1.  0 

BCB.40 

PCCUR(6l8 1-6220) 

lower  corridor  limits  for 
ballistic  coefficients 

0.  0 

BC0N 

NIMPUT 

exponent  for  scale  factor, 

(CC0N),  on  dec0y 

rate  B1 

1.  0 

BCD,  40 

PCCUR(6l01-6l40) 

lower  corridor  limits  for 
deceleration 

0.0 

BCV,  40 

PCCUR(602 1-6060) 

lower  corridor  limits  for 
velocity 

0.0 

BCWL1.40 

PCCUR(650 1-6541) 

lower  corridor  limits  for 
wake  length  at  first  radar 
frequency 

0.0 

BCWL2, 40 

PCCUR(658 1  -66  20) 

lower  corridor  limits  for 
wake  length  at  the  second 
radar  frequency 

0.0 

BCWL3.40 

PCCUR(  666 1-6700) 

lower  corridor  limits  for 
wake  length  at  the  second 
radar  frequency 

0.0 

BCWR1,  40 

PCCUR(6261-6300) 

lower  corridor  limits  for 
wake  cross  section  at 
first  radar  frequency 

0.0 

BCWR2,  40 

PCCUR(634 1-6380) 

lower  corridor  limits  for 
wake  cross  section  at 
second  radar  frequency 

0.0 
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2.  Input  (Cont'd) 


Name 

Common 

Location 

Description 

Preset 

Value 

BCWR3, 40 

PCCUR(6421-6460) 

lower  corridor  limits  for 
wake  cross  section  at  third 
radar  frequency 

0.0 

BETAPL,  160 

PCCUR(641-800) 

ballistic  coefficients  input  for 
reference  reentry  vehcile 

0.0 

BETAZ,  10 

CWAKE 

atmospheric  density  scale 
height  for  wake  calculations  — 
units  of  1000  feet. 

BTWEN 

DRCSEC 

scaling  constant  in  FL0WF 

- 

BZER0 

DRCSEC 

scaling  constant  in  RCSEC 

- 

B2 

DRCSEC 

scaling  constant  in  RCSEC 

- 

B3 

DRCSEC 

scaling  constant  in  RCSEC 

- 

B21 

NIMPUT 

scaling  constant  in  FL0WF 

- 

B22 

NIMPUT 

r 

scaling  constant  in  FL0WF 

- 

B23 

NIMPUT 

scaling  constant  in  FL0WF 

- 

B24 

nn 

scaling  constant  in  RCSEC 

m 

CAL0W,  20 

MIN 

lower  bounds  for  constrained 
items  in  penalty  equation 

0.0 

CC0N 

0CCUR(3963) 

base  of  scale  factor  for 
decoy  rate  and  transition 
electron  density 

1.  0 

transition  electron  density 
when  non-linear  production 
terms  are  considered  in 
turbulent  wake,  used  in  RCSEC 
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2.  Input  (Cont'd) 


Common  Preset 

Mamfe  Location  Description  Value 

CNUMB,  169  NIMPUT  preset  constant  used  in 

FL0WF  and  RCSEC,  set 
in  preset  de*.k 

CRH0W  NIMPUT  heatshield  specific  heat  used 

in  the  wake  calculations  of 
FL0WF,  Btu/(lb-°R) 

CTP,  20  MIN  upper  bounds  for  constrained  9-9 

items  in  the  penalty  equation 

DELTA  F0PT  estimate  of  the  determinant  of 

the  H  matrix  of  DAVD0N 

DELWH  NIMPUT  heatshield  thickness  in  inches 

used  in  wake  calculations  of 
FL0WF 

OELX,  20  D0PT  inDAVDON»  finite  difference 

increments;  in  R|t)SBRK,  the 
initial  step  sizes. 

DHCHEM  NIMPUT  chemical  enthalpy  of  heatshield 

in  FL0WF  (ft2/ sec2) 

D5B  DRCSEC  additional  radar  cross  section 

due  to  consideration  of  non¬ 
linear  production  terms  in 
turbulent  wake  in  RCSEC 

DTABL,  220  TBLS12  electron  density  as  a  function 

of  normalized  enthalpy,  ratio 
of  ablation  to  boundary  layer 
air ,  and  air  density  for  1000 
PPM  sodium  seed 


2.  Input  (Cont'd) 


Name 
DVH,  50 


DVL.50 


DX 


Common  Preset 

Location  Description  Value 

PCCUR(11607-11656)  input  values  of  design  variables  0.0 

for  Becond  perturbation  of 
comparison  decoys 

PCCUR{11657-11706)  input  values  of  design  variables  0.0 

for  first  perturbation  of 
comparison  decoys 

DRCSEC  numerical  step  size  used  in 

finding  wake  length 


EMCTBL,  12  TBLS12  cone  Mach  number  array,  one 

of  the  coordinates  of  the  table  of 
Mach  number,  M,  as  a  function 
of  cone  half  angle  THETAC  and 
cone  Mach  number  MC  in  FL0WF 


ENTABL,  225  TBLS12 


table  of  nc,  electron  density  in  - 
e/cc,  as  a  function  of  h/RT 


o* 


normalized  enthalpy,  and  p  iOQ , 
air  density  *  * 


ERNRTB,  10  TBLS12 

ERNTBL,  80  TBLS12 

ERNUTB,  8  TBLS12 
ERR  F&PT 


array  of  air  densities,  £  ,  in  lbm/  - 
ft^  in  table  of  equilibrium  normal 
shock  electron  density  table  as  a 
function  of  and  velocity 

equilibrium  normal  shock  electron  - 
density  table  in  e/cc.  whose 
coordinates  are  density,  ERNRTB, 
and  velocity,  ERNUTB 

array  of  velocities  in  1000  ft/sec  - 
which  are  coordinate  of  ERNTBL 

if  IPR0C  *  3  (Davidon's  method),  0.  01 
stopping  tolerance  on  transformed 
gradient;  if  IPRtftC  *  1  or  5  and 
LIMIT  *  0,  the  accuracy  require¬ 
ment  for  the  Fibonacci  search  in 
the  physical  units  of  the  independent 

_  variables 
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2,  Input  (Cont'd) 


Name 

Common 

Location 

Description 

Preset 

ETABL,  132 

TBLS12 

table  of  Mach  number,  M,  as 
a  function  of  cone  Mach  number 
EMCTBL  and  cone  half  angle 
THTBL. 

FAC 

F0PT 

if  non-zero,  the  value  which 
is  given  to  the  diagonal  elements 
of  the  H  matrix  in  DAVDON 
while  non-diagonal  elements  are 
zeroed. 

1.0 

FGSM 

NALTFG 

multiplier  on  the  step  size 
limit,  FGSM*(f/g  ),  in  the 
SUBROUTINE  REiDY  in  the 
Davidon  method 

4.0 

FRQ1 

CWAKE 

first  radar  frequency 

cycles/ sec 

FRQ2 

CWAKE 

second  radar  frequency 

cycles/sec. 

FRQ3 

CWAKE 

third  radar  frequency 

cycles/sec. 

H,  40 

PCCUR(584 1-5880) 

altitudes  for  the  corridor 
tables  and  for  the  radar 
measurement  errors 

0.0 

HH,  1600 

BLKO 

upper  right  triangular  input 
of  the  initial  elements  of  H 
matrix  in  DAVD0N 

HSTABL,  25 

TBLS12 

array  of  h/RT  which  is  a 
coordinate  of  the  electron 
density  table,  ENTABL 

IC0M,  200 

IXC0M* 

multi-purpose  input  array, 
see  user  manual 

IDBL 

I0CCUR{314)* 

interger  code  which  determines 
units  of  radar  cross  section; 
if  =  3,  RCS  in  decibels,  if  =  4, 
RCS  in  square  meters 

4 

i-:i6 
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2.  Input  (Cont'd) 


Common 

Preset 

Name 

Location 

Description 

Value 

IDC,  50 

IDN0S* 

identification  array,  the 
values  are  the  indices  of  the 
constraints  in  the  0CCUR  array 

0 

IDN0,  50 

ID  NOS* 

identification  array,  the  values 
are  the  indices  of  the  design 
parameters  in  the  0CCUR  array 

0 

IEX 

I0PT* 

the  exponent  of  the  penalty 
function 

2 

IGDH,  20 

IGDHL* 

locations  in  the  OCCUR  array  of 
the  first  terms  used  in  obtaining 
the  general  differences  in  MISC 

0 

IGDL,  20 

IGDHL* 

locations  in  the  OCCUR  array 
of  the  second  isrms  used  in 
obtaining  the  general  differences 
in  MISC 

0 

IN 

I0PT* 

the  number  of  design  variables 

1 

IND 

CWAKE* 

printout  option  control  in 

FL0WF 

IND2 

DRCSEC* 

if  IND  2=0,  no  output  is 
generated  by  RCSEC.  If 

IND  2  =  1,  intermediate 
steps  are  printed  out 

I0P,  90 

I0CCUR(1-9O)* 

input  integer  code, 
see  user  manual 

IPNT 

I0PT* 

not  used  currently 

IPR0C 

I0PT* 

optimizer  selection  code, 
see  user  manual 

1 
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2‘  ^put  (Cont'd) 


Common 
Name  Location 

IRAND  I0PT* 

IREF  I0CCUR(3O1) 


ISEN1 

SENSE  * 

ISEN2 

SENSE  * 

IWAKE 

CWAKE  * 

IWPRNT 

CWAKE * 

K 

MINSK  * 

limit 

I0PT  * 

Preset 

Description,  Value 

number  of  random  starting  0 

points  to  be  used  inDavidon 
method 

trajectory  processing  option  1 

code;  value  of  1,  calculate 
R/V  trajectory  or  other  mis¬ 
cellaneous  calculations;  value 
of  2,  calculate  and  compare 
decoy  trajectory;  value  of  3, 
input  an  R/V  trajectory 

DAVD0N  printout  control  0 

not  used  currently  0 

number  of  entries  in  the  wake- 
altitude  table,  WKALT 

print  option  in  WAKE 

not  used 

in  the  one  variable  Fibonacci,  30 

number  of  times  the  function 
will  be  calculated  unless  =  0, 
then  the  value  of  ERR  determines 
the  number  of  times.  In  Davidon 
method,  maximum  number  of 
iterations.  In  Rosenbrock's 
method,  limit  on  the  number  of 
successful  steps  taken  on  each 
variable.  In  the  two  variable 
Fibonacci  method,  (LIMIT)2  +  1 
is  the  number  of  times  the  function 
will  be  calculated. 


» 


* 
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2.  Input  (Cont'd) 


Name 

Common 

Location 

Description 

LPL0T 

I0CCUR(3O2)* 

number  of  trajectory  points 
in  the  input  R/V  trajectory 
for  M0DE  =  3 

LRED 

0WL  * 

the  maximum  number  of 
times  that  the  factor  WRF 
can  be  applied,  see  REDUCE 

MODE 

I0CCUR(3O3)* 

fundamental  option  code;  if 
=  1  single  trajectory  calcula¬ 
tion,  input  trajectory,  or 
wind  tunnel  conditions  used  to 
find  drag  coefficients;  if  =  2, 
R/V  decoy  comparison  and 
influence  coefficient  calcula¬ 
tions  are  performed;  if  =  3, 
optimization  calculations  are 
performed. 

NALT 

NALTFG * 

alternate  logic  for  step  size 
in  SUBROUTINE  READY 

NC0MDV,  50 

I0CCUR(9 1-140)* 

identification  code  numbers 
(indices  in  0CCUR  array) 
of  design  variables  to  be 
perturbed  under  MfiDE  *  2 
influence  coefficient  calcula¬ 
tions 

Preset 

Value 

1 

0 

3 


0 

133 


NC0NS 


I0PT* 


number  of  entries  in  constraint  1 
table 


2.  Input  (Cont'd) 


l 

i 


Name 

Common 

Location 

Description 

NCP 

I0CCUR(3O4)* 

number  of  corridor  points 

NDEC0Y 

IC?CCUR(305)* 

vehicle  type  identification  code; 
if  =  1,  R/V  or  one  basic  decoy; 
if  =  2,  one  perturbation  of  each 
design  variable;  if  =  3,  two 
perturbations  on  each  design 
variable 

NDVCH 

I0CCUR(3O6)* 

number  of  entries  in  NC0MDV 
table,  i,  e. ,  number  of  design 
variables 

NPA 

10CCUR(3O7)* 

number  of  entries  in  NPV  table 
for  influence  coefficient  plots 

NPV,  160 

I0CCUR(  14 1-300)* 

index  of  altitudes  for  influence 
coefficient  plots 

NSTWL 

DRCSEC* 

maximum  number  of  steps 
used  to  compute  wake  length 

OVECT,  20 

0WL 

initial  values  of  the  design 

variables 
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1. 


Input  (Cont'd) 


» 


4 


Name 

Common 

Location 

Description 

Preset 

Value 

PFD 

PCCUR(  11757) 

probability  of  false 
dismissal  of  an  R/V, 
see  EFFECT 

0.  0 

PHI1,  10 

CWAKE 

look  angle  for  radar  of  the 
first  frequency 

PHIZ,  10 

CWAKE 

look  angle  for  radar  of  the 
second  frequency 

PH13,  10 

CWAKE 

look  angle  for  radar  of  the 
third  frequency 

PRAND 

F0PT 

random  step  size  control 
for  DAVD0N 

0.  0 

RH0SL 

NIMPUT 

sea  level  density  in 
lbm/ft3  in  FL0WF 

RH0W 

NIMPUT 

heatshield  density  in 
lbm/ft3  in  FL0WF 

RSTABL,  9 

TBLS12 

array  of  p  ! Q  which  is  a 
coordinate  of  thp  electron 
density  table  ENTABL 

RTO 

NIMPUT 

the  reference  enthalpy  in 

FL0WF  inft2/sec2 

SB,  40 

PCCUR(68  21-6860) 

tha  standard  deviation  of  radar 
measurement  errors  for 
ballistic  coefficient 

0.0 

SD,  40 

PCCUR(678 1-6820) 

standard  deviation  of  radar 
measurement  errors  for 
deceleration 

0.0 

SIGN  LI 

CWAKE 

noise  level  for  wake  length 
definition  at  first  frequency 
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2.  Input  (Cont'd) 


Name 

Common 

Preset 

Location 

Description 

Value 

SIGNL2 

CWAKE 

noise  level  for  wake  length 
definition  at  second  frequency 

SIGNL3 

CWAKE 

noise  level  for  v/ake  length 
definition  at  third  frequency 

SMULT,  25 

MULT 

multipliers  of  special  penalty 
terms  in  SUBROUTINE 

SCREEN 

1.  o 

SRS,  9 

PCCUR(  1 1 598- 1 1606) 

number  of  smooth  radar  samples 

0.  0 

SV,  40 

PCCUR(  674 1-6780) 

standard  deviation  of  radar 
measurement  errors  for 
velocity 

0.  0 

SWL1.40 

PCCUR(  698 1-7020) 

standard  deviation  of  radar 
measurement  errors  for  wake 
length  at  first  radar  frequency 

0.  0 

SWL2.40 

PCCUR(7021-7060) 

standard  deviation  of  radar 
measurement  errors  for  wake 
length  at  second  radar  frequency 

0,  0 

SWL3,  40 

PCCUR(7061  -7100) 

standard  deviation  of  radar 
measurement  errors  for  wake 
length  at  third  radar  frequency 

0.0 

SWRI,  40 

PCCUR(  686 1-6900) 

standard  deviation  of  radar 

0.  « 

■ 

measurement  errors  for  wake 

/  ■ 

cross  section  at  first  radar 
frequency 

SWR2.40 

PCCUR(  690 1-6940) 

standard  deviation  of  radar 
measurement  errors  for 
wake  cross  section  at  second 
radar  frequency 

0.0 

SWR3.40 

PCCUR(  694 1-6980) 

standard  deviation  of  radar 

0.0 

measurement  errors  for 
wake  cross  section  at  third 
radar  frequency 
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2. 


Input  (Cont'd) 


* 


111 


Name 

Common 

Location 

Description 

Preset 

Value 

TADL 

NIMPUT 

ablation  temperature  in  °K 
of  the  heatshield  used  in 

FL0WF 

TAU1 

CWAKE 

.  pulse  length  for  radar  of 
first  frequency  in^lLsec. 

TAU2 

CWAKE 

pulse  length  for  radar  of 
second  frequency  in^4<  sec. 

TAU3 

CWAKE 

pulse  length  for  radar  of 
third  frequency  in ^LL  see. 

TCB.40 

PCCUR(6221-6260) 

upper  corridor  array  for 
ballistic  coefficient 

0.  0 

TCD.40 

PCCUR(6141-6180) 

upper  corridor  array  for 
deceleration 

0.  0 

TCV,  40 

PCCUR(6061-6100) 

upper  corridor  array  for 
velocity 

0.0 

TCWL1.40 

PCCUR(  6541 -6580) 

upper  corridor  array  for  wake 
length  at  first  radar  frequency 

0.0 

TCWL2,  40 

PCCUR(  66  21-6660) 

upper  corridor  array  for  wake 
length  at  second  radar  frequency 

0.0 

TCWL3.40 

PCCUR(6701o6740) 

upper  corridor  array  for  wake 
length  at  third  radar  frequency 

0.0 

TCWR1,  40 

PCCUR(6301-6340) 

upper  corridor  array  for  wake 
cross  section  at  first  radar 
frequency 

0.0 

TCWR2,  40 

PCCUR{  638 1  -64  20 ) 

upper  corridor  array  for 
wake  cross  section  at 
second  radar  frequency 

0.0 
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2.  Input  (Cont'd) 


Name 

Common 

Location 

Description 

upper  corridor  array  for 
wake  cross  section  at  third 
radar  frequency 

TCWR3.40 

PCCUR(646l  -6500) 

THTTBL,  11 

TBLS12 

array  of  cone  half  angle  which 
is  a  coordinate  of  the  M  vs. 

THE T AC  and  MC  table,  ETABL 

TPL0T,  160 

PCCUR{  1-160) 

tab1  of  times  for  the  input 
re  y  vehicle  trajectory 

UP,  20 

MIN 

vector  of  upper  bounds  on 
design  variables 

VOGPLT,  160 

PCCUR(48 1-640) 

table  of  deceleration  (V/g) 
for  input  RAr  trajectory  in 
g's 

VPL<Z>T,  160 

PCCUR(321-480) 

table  of  velocities  for  input 

R/V  trajectory  in  ft/sec 

WKALT,  10 

CWAKE 

altitudes  correspond  to  the 
scale  height  and  look  angle 
input  tables  used  in 
SUBROUTINE  WAKE 

WL1P,  160 

PCCUR(  1281-1440) 

input  wake  length  at  the 
first  radar  frequency  for 
the  input  R/V  trajectory 

WL2P,  160 

PCCUR(  1441-1600) 

input  wake  length  at  the 
second  radar  frequency  for 
the  input  R/V  trajectory 

WL3P,  160 

PCCUR(  1601 -1760) 

input  wake  length  at  the 

third  radar  frequency  for 
the  input  R/V  trajectory 
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Preset 

Value 

0.  0 

0.  0 

0.0  . 

0.  0 

0.  0 

0.0 

« 

0.0 

0.0 


2. 


Input  (Cont'd) 


Name 

Common 

Location 

Description 

Preset 
V  alue 

WRF 

0WL 

generalized  reduction  factor 
in  REDUCE 

WR1P,  160 

PCCUR(801  -960) 

input  wake  cross  section  at 
the  first  radar  frequency  for  the 
input  R/V  trajectory 

0.  0 

WR2P,  160 

PCCUR(961-1120) 

input  wake  cross  section  at 
the  second  radar  frequency 
for  the  input  R/V  trajectory 

0,0 

WR3P,  160 

PCCUR(1 121-1280) 

input  wake  cross  section  at 
the  third  radar  frequency 
for  the  input  R/V  trajectory 

0.0 

WSTALT 

CWAKE 

starting  altitude  for  wake 
calculation 

- 

XC0M,  200 

IXC0M 

multi-purpose  input  array, 
see  user  manual 

- 

XDTABL,  11 

TBLS12 

array  of  air  density  ratios, 

P  iPa>  which  is  one  of  three 
coorafnates  of  the  electron 
density  table  D 

X2B0D 

DRCSEC 

two  body  overdens e  length 
in  RCSEC 

- 

X3B 

DRCSEC 

station  where  linear  production 
terms  first  dominate  the  non¬ 
linear  production  terms  in 

RCSEC 

m 

YD  TAB  L,  11 

TBLS12 

the  array  of  h/RTQ  values  which 
is  one  of  three  coordinates  of  the 
electron  density  table  D. 
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2.  Input  (Concl'd) 


Name 

ZD  TAB  L,  11 

ZNUS 

ZPL0T,  160 


Common 

Location  Description 

TBLS12  the  array  of  ratios  of 

ablation  to  boundary  layer 

air,  M  one  of  three 
rat 

coordinates  of  the  electron 
density  table  D 


TBLS12  sea  level  collision  frequency 

in  cps  used  in  FL0WF 

PCCUR(  161-  320)  altitudes  for  the  input  R/V 

trajectory 


Preset 

Value 


0.  0 
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3.  Output 


^indicates  integer  quantity 

Name 

Common 

Location 

Description 

D,  220 

TBLS12 

see  input  for  DTABL 

ID1,  50 

IDN0S* 

see  input  for  IDN0 

ID 2,  50 

IDN0S* 

see  input  for  IDC 

XYZTB  L(ll,  3) 

TBLS12 

single  three  dimensional  table  which 
incorporates  the  three  independent 

variables  of  the  D  table;  the  second 
integer  indicates  the  related  independent 
variable  in  the  following  manner: 

1  indicates  XDTABL  values 

2  indicates  YDTABL  values 

3  indicates  ZDTABL  values 

In  addition,  all  input  quantities  not  mentioned  above  are  output  with  no 
change  in  name. 

4.  Numeric**  Procedure 

SUBROUTINE  ZREADX  calls  SUBROUTINE  SETUP,  and  entry  point 
for  SUBROUTINE  READIN,  once  for  each  input  variable  it  refers  to. 

These  calls  provide  READIN  with  the  length  and  dimension  of  each  of  these 
input  variables.  All  of  the  calls  to  SETUP  could  not  be  included  in  one 
subroutine  because  it  would  then  have  been  too  large  for  the  compiler  to 
handle.  The  remaining  calls  to  SETUP  are  made  in  SUBROUTINE  READIT. 

5*  Other  Information 

A.  SUBROUTINE  ZREADX  is  called  by  SUBROUTINE  READIT  only. 

B.  SUBROUTINE  ZREADX  calls  SUBROUTINE  SETUP  only.  SETUP 
is  an  entry  point  to  READIN. 


1.4  Presetting  Operations 


Preset  values  are  defined  by  the  three  subroutines  -  SR2490, 
ZPRM,  and  ZPRS.  The  preset  values  for  the  curve  fit  co¬ 
efficients  Ai  and  Bi  are  assigned  in  SUBROUTINE  ZPRS. 
SUBROUTINE  SR2490  presets  primarily  quantities  used  in 
the  trajectory  computations,  while  the  quantities  of  ZPRM 
are  related  for  the  most  part  to  the  optimization  calculations. 


# 
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SUBROUTINE  SR 24 90 


1.  Purpose 

SUBROUTINE  SR2490  presets  the  values  of  many  of  the  input 


variables. 

2.  Input 

Name 

Common 

Location 

Source  of 
Input 

Description 

Preset 

Value 

A,  514 

0CCUR1[3O1-814) 

ZPRS 

curve  fit  coefficients  see  ZPRS 

B,  21 

0CCUR(823-843) 

ZPRS 

cure  fit  coefficints 

see  ZPRS 

3.  Output 

Common 

Preset 

Name 

Location 

Description 

Value 

A,  514 

0CCUR(3O1-814) 

curve  fit  coefficients 

see  ZPRS 

AA,  27 

PCCUR(11571-11597)  coefficient*  used  in 

1.  0  for  index 

FUNCTION  ADD 

which  is  a 

multiplier  of 

3,  otherwise 

aero 

ALST 

0CCURU22) 

stopping  angle  of  attack 

0.  2  degrees 

n  | 

■Erj  mk 

0CCUR(823-843) 

curve  fit  coefficients 

see  ZPRS 
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3.  Output  (Cont'd) 


Name 

Common 

Location 

Description 

Preset 

Value 

C 

0CCUR(115) 

multiplier  on  stagnation 
heating  to  perturb  mass  loss 

1.0 

CAPG 

0CCUR(19) 

gravitational  acceleration, 
preset  to  32.  21852  ft/sec  * 

CD0WN,  16 

0CCUR{3  549-3564) 

array  of  lower  bounds  on 
integration  accuracy 

0.00001 

CHIGH,  16 

0CCUR(3533-3548) 

array  of  upper  bounds  on 
integration  accuracy 

0. 0001 

DELIN 

0CCUR(18  7) 

maximum  allowable  delta 
of  integration  in  ADM4RK 

-2000.  0  ft. 

FACTR1 

0CCUR(  189) 

numerical  factor, 
preset  to  (.  002375  slug)  * 

G 

0CCUR(27) 

conversion  factor  for 
changing  slugs  to  lbm. 

32.  174  lbm/ slug 

GAMMA 

0CCUR(28) 

ratio  of  specific  heats  for 
air 

1.4 

IMPL0T* 

I0CCUR(3O9) 

test  parameter  for  opening 
plot  file 

0 

I0P,  90* 

I0CCUR(1-9O) 

option  codes  for  decoy 
optimization 

1 

1REF* 

I0CCUR(3O1) 

integer  control  code  which 
must  be  1  or  2  for  the  reentry 
vehicle  and  2  for  decoy 
optimization  calculations 
(program  changes  this  to  2 
after  R/V  case) 

1 

ISP 

0CCUR(222) 

specific  impulse 

1. 0  sec. 
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3.  Output  (Cont'd) 


Common 

Preset 

Name 

Location 

Description 

Value 

L0PT# 

N0CCUR(O7) 

trajectory  option  control 
code 

1 

LP* 

0CCUR(4OOO) 

error  control  code 

1 

LPL0T* 

I0CCUR(3O2) 

the  number  of  altitudes  for 
which  information  is  output 
from  VIXEN 

1 

MATLN1* 

N0CCUR(2O) 

material  option  control  code 
for  initial  configuration 

1 

MATLN2* 

N0CCUR{21) 

material  option  control 
for  configuration  after  shape 
change  at  ZTURN 

1 

MW 

0CCUR(117) 

molecular  weight  of  air 

28.  9  gram / 
mole 

MXTAB1# 

NfCCUR{16) 

number  of  values  in  X  / D,  1 

c.g. 

I,  I  table  for  initial  configuration 

MXTAB2# 

N0CCUR(17) 

number  of  values  in  X  /D, 

c.g 

I.  I  table  for  configuration 

after  shape  change 

1 

NC0MDV,  50* 

I0CCUR(9 1-140) 

identification  codes  of 
variables  to  be  perturbed 
in  the  optimization 

133 

NCP* 

I0CCUR(3O4) 

number  of  elements  in  the  array 
of  input  corridor  limits 

1 

NDEC0Y 

10CCUR{3O5) 

test  parameter  for  influence 
coefficient  plots 

1 
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3.  Output  (Cont'd) 


Name 

Common 

Location 

Description 

Preset 

Value 

NDVCH* 

I0CCUR(3O6) 

input  control  code  for 
matching  subroutine 

1 

NGE0M* 

N0CCUR{15) 

geometry  input  option  code 

1 

NPA* 

I0CCUR{3O7) 

the  number  of  altitudes 
which  influence  coefficients 
will  be  plotted 

1 

NPRINT* 

N0CCUR(14) 

print  code  option 

1 

NPV,  160* 

I0CCUR(  14 1-300) 

array  containing  the  indices 
of  altitudes  at  which  influence 
coefficients  will  be  produced 

1 

PI 

0CCUR(42) 

mathematical  constant, 
preset  to  3.  141592653589793 

R 

0CCUR(57) 

gas  constant  for  air, 

preset  to  53.  5-^--^- 
lbm-°R 

RE 

0CCUR(63) 

radius  of  the  earth 

20902290.  ft 

SIG 

0CCUR(116) 

collision  cross  section  of 
air 

3.5  A9 

TAB  1X1,50 

0CCUR(  3033-308  2) 

transverse  moment  of  inertia 

I  for  initial  configuration 

1.0  slug -ft2 

TAB  1X2,  50 

0CCUR(3O83-3132) 

transverse  moment 6f  inertia 

I  for  configuration  after 

XX 

shape  change  at  ZTURN 

2 

1.  Oslug-ft 

TABI1,  50 

0CCUR(2933-2982) 

moment  of  inertia  I  *  I  »  I 

yy  as* 

for  initial  configuration 

1.  0  slug-ft^ 
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3.  Output  (Cant'd) 


Name 
TABI2,  50 

TEC  ON 

UNIT 

TST 

TWS.T 

TWI 

TW2 

XLOw 

XUP 


Common 

Preset 

Location 

Description 

Value 

|t)CCUR(  2983-3032) 

moment  of  inertia  1=1  =1 

yy  zz 

for  configuration  after  shape 
change  at  ZTURN 

1.  0  alug-ft^ 

0CCUR(78) 

limit  on  time  for  one 
cycle  in  angle  of  attack 

2, 0  sec. 

OCCURU32) 

internal  temperature  of 
vehicle  used  in  iterative  mass 
loss  calculation  to  find  tempera¬ 
ture  gradient 

509.  0°R 

OCCURU23) 

stopping  time 

100,  sec. 

OCCURU43) 

effective  wall  temperature 
used  in  rarefied  flow  region 

580.  °R 

<JCCUR(  149) 

input  initial  wall  temperature 
for  the  initial  configuration 

1200.  °R 

0CCUR(168) 

input  initial  wall  temperature 
for  the  configuration  after 
shape  change 

1 200,  °R 

OCCUR{238) 

the  value  of  the  interaction 
parameter  J?  which  marks 
the  beginning  of  the  fully 
laminar  flow  regime  and  the 
end  of  fairing  between  continuum 
and  strong  interaction 

4.0 

OCCUR(237) 

the  value  of  the  interaction 
parameter  X  which  marks  the 
end  of  the  strong  interaction 
and  the  beginning  of  fairing 
region  between  strong  inter¬ 
action  and  continuum  flow 

6.0 
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3-  Output  (Cone I'd) 


Name 

Conmoft 

Location 

Description 

Preset 

Value 

XI  LOW 

0CCURU4G) 

the  value  of  the  rarefaction 
parameter  X  j  which  marks 

0.  2 

the  end  of  fairing  regie  i  between 
the  transitional  free  molecule  and 
the  strong  interaction  and  the 
beginning  of  strong  interaction 
regime 

XI  UP 

OCCUR(239) 

the  value  of  tjie  rarefaction 
parameter  X  ,  which  marks 

0.4 

the  beginning  of  fairing  region 
between  transitional  free  molecule 
and  strong  interaction  and  the  end 
of  the  free  molecule  transitional 
flow  regime 

ZBAR 

OCCUR(120) 

altitude  at  which  altitude  print 
increment  changes 

-10000.  0  ft, 

7FTA 

OCCUR(93) 

accommodation  coefficient 

0.9 

ZPRl 

0CCURU18) 

initial  altitude  print  increment 

100C0.  ft. 

ZTURN 

OCCURU45) 

altitude  at  which  a  discontinuous 
shape  change  occurs 

-1.0  ft. 

I 
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4.  Numerical  Procedures 


As  a  first  step  SR2490  sets  all  of  the  elements  in  the  lour 
common  arrays  I0CCUR,  N0CCUR,  0CCUR  and  PCCUR  equal  to  zero, 
Then  the  values  of  those  elements  which  should  not  be  zero  are  reset  to 
their  proper  values.  At  the  end  of  5R2490,  SUBROUTINE  ZPRS  is  called 
to  accomplish  the  resetting  of  the  A  and  B  arrays  which  are  stored  in  the 
0CCUR  common  block. 


5.  Other  Information 

A,  SUBROUTINE  SR2490  is  called  by  MAIN  only. 

B,  SUBROUTINE  SR2490  calls  SUBROUTINE  ZPRS. 


SUBROUTINE  ZPRM 


1.  Purpose 

SUBROUTINE  ZPRM  presets  the  values  of  some  of  the  variables 
used  in  the  program, 

2.  Input 

None 


3.  Output 

-‘indicates  an  integer  quantity 


Name 

Common 

Block 

Preset 

Value 

Description 

AL0W,  20 

MIN 

0.0 

lower  limits  on  independent  variables 

ALPHA 

XC0M(1) 

3.0 

multiplier  used  to  obtain  new  step 
size  from  previous  step  size  for 
a  successful  step  in  RC6BRK 

AMULT,  20 

MIN 

1.0 

multipliers  for  each  term  in  the 
penalty  equations 

BETA 

XC0M (2) 

.5 

multiple r  whose  negative  is  used  to 
obtain  a  new  step  size  from  the 
previous  step  size  after  an 
unsuccessful  step  in  R0SBRK. 

CAL0W,  20 

MIN 

0.0 

lower  bounds  for  constrained  items 
in  the  penalty  equation 

CTP,  20 

MIN 

0.0 

upper  bounds  for  constrained  items 
in  the  penalty  equation 
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3,  Output 

Common 

„ 

Preset 

Value 

Description 

DEL 

XG0M(4) 

.01 

multiplier  used  in  obtaining  the  limiting 
value  on  function  U  in  R0SBRK 

DELX,  20 

D0PT 

.001 

in  PAVD0N,  finite  difference 
increments;  In  R0SBRK,  the 
initial  step  sizes. 

POD 

Xn <t  XVJCV 

P0PT 

0.01 

See  input  description  for  ZREADX 

FCSM 

NALTFG 

4.0 

multiplier  on  step  size  limit, 
FGSM*(f/g6),  in  SUBROUTINE  READY 

GAMMA 

XC0M(3> 

0.5 

multiplier  used  to  redefine  step 
size  after  a  failure 

IC0M,*2OO 

IXC0M 

all  0 

multi-purpose  input  array,  see 
user  manual 

IEX* 

I0PT 

2 

the  exponent  of  the  penalty  function 

IGDH*,  20 

IGDHL 

0 

locations  in  the  0CCUR  array  of  the 
first  terms  used  in  obtaining  the 
general  differences  in  MISC 

IGDL*,  20 

IGD  HL 

0 

locations  in  the  (OCCUR  array  of  the 
second  terms  used  in  obtaining  the 
general  differences  in  MISC 

IN* 

IOPT 

1 

the  number  of  design  variables 

IPR0C* 

I0PT 

1 

optimizer  selection  code,  see 
user  manual 

IRAND* 

I0PT 

0 

number  of  random  starting  points  to 
be  used  in  the  Davidon  method 

ISEN1* 

SENSE 

0 

DAVD0N  printout  control 
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i.  Output 


Common  Preset 


Name 

Block 

Value 

Description 

TC  TTIVT  7  9'x 

J.0  I  "1  m> 

SENSE 

0 

not  used  currently 

LIMIT* 

I0PT 

30 

see  input  description  of  ZREADX 

NALT* 

NALTFG 

0 

code  for  alternate  logic  for  step 
size  in  SUBROUTINE  READY 

NC0NS* 

I0PT 

1 

number  of  constraints 

0VECT,  20 

OWL 

5.0 

initial  values  of  the  design  variable# 

PRAND 

F0PT 

0.0 

random  step  size  control  for  DAVD0N 

RATU 

XC0M(5) 

0.  5 

input,  tolerance  on  quantity  URAT, 
described  in  text  of  R0SBRK 

SMULT,  25 

MULT 

1.0 

multiplier  on  penalty  function  used 
in  SUBROUTINE  SCREEN 

TOL 

XC0M<6) 

0.0001 

input  accuracy  test  parameter 

UP,  20 

MIN 

0.0 

vector  of  upper  bounds  on  design 
variables 

WRF 

OWL 

0.9 

generalized  reduction  factor  in 
SUBROUTINE  REDUCE 

4,  Numerical  Procedures 

No  special  numerical  methods  are  required.  The  setting  of  values 
is  accomplished  in  the  usual  FORTRAN  arithmetic  type  statements 
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5,  Other  Information 

A.  ZPRM  is  called  by  MAIN  only. 

B.  ZPRM  does  not  call  or  reference  any  subprogram. 


SUBROUTINE  ZPRS  (A.  B) 


I.  Purpose 


SUBROUTINE  ZPRS  defines  the  elements  of  the  A  and  B  arrays 
which  are  coefficients  of  the  curve  fits  contained  in  various  other  subroutines 
of  the  program. 


2,  Input 

There  are  no  input  quantities  to  SUBROUTINE  ZPRS. 


3,  Output 

B( I)  through  B(21) 


A(ll)  through  A( 37) 

A(41)  through  A(58) 


A(9v)  through  A<  1 04) 

A( 105)  through  A(110) 


Coefficients  for  the  probability  distribution  between 
free  molecule  and  continuum  flow  regimes.  These 
are  used  in  SUBROUTINE  DRAGC0. 


Coefficients  used  in  finding  maxima  and  minima 
in  SUBROUTINE  VIXEN. 


Coefficients  used  for  calculating  blunt  cone  pressure 
distributions  for  cone  half  angles  greater  than  or 
equal  to  20  degrees  in  SUBROUTINE  AER0DY. 


Coefficients  used  for  calculating  edge  temperatures 
in  SUBROUTINE  PRELIM. 


Coefficients  used  for  calculating  specific  heat  at 
constant  pressure  when  temperature  is  in  the  range 
700  to  5000  degrees  Rankine  inclusive.  They  are 
used  in  SUBROUTINE  PRELIM. 
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A(  111)  and  A(1 12) 


A(135)  through  A(  161) 


A(162)  through  A(173) 

A(174)  through  A(193) 


A(200)  through  A(2u7) 


A(211)  through  A(246) 


A(247)  through  A{282) 


A{283)  through  A(290) 
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Coefficients  used  for  calculating  specific  heats 
at  constant  pressure  when  temperature  is  greater 
than  5000  degrees  Rankine,  They  are  used  in 
SUBROUTINE  PRELIM. 

Coefficients  used  for  blunt  cone  pressure  distributions 
for  cone  half  angles  less  than  20  degrees.  They 
are  used  in  SUBROUTINE  AERODY. 

Coefficients  used  for  calculating  TSTAR  in  SUB¬ 
ROUTINE  DR  AGCO. 

Coefficients  used  for  calculating  free  molecule  drag 
coefficients  on  the  spherical  nose.  They  are  used  in 
SUBROUTINE  DRAGCO. 

Coefficients  used  in  calculating  the  strong  interaction 
drag  coefficients  for  cone  half  angles  less  than 
15  degrees.  They  are  used  in  SUBROUTINE 
DRAGCO. 

Coefficients  used  to  determine  blunt  cone  forebody 
pressure  drag  coefficients  for  cone  half  angles  4  to 
10  degrees  inclusive.  They  are  used  in  SUBROUTINE 
DRAGCO. 

Coefficients  used  to  determine  the  blunt  cone  fore¬ 
body  pressure  drag  coefficient  for  cone  half  angles 
greater  than  10  and  less  than  or  equal  to  20  degrees. 
They  are  used  in  SUBROUTINE  DRAGCO. 

Coefficients  used  to  determine  the  shape  factor 
for  calculating  laminar  induced  drag  coefficients. 

They  are  used  in  SUBROUTINE  DRAGCO. 


1-61 


Iftmpfww 


A{300)  through  A(311) 


A(312)  through  A(347) 


A(348)  through  A(383) 


A(384)  through  A(399) 


A(40u)  through  A(420) 


A(421)  through  A(456) 


Coefficients  used  to  calculate  the  transition 
altitude.  They  are  used  in  SUBROUTINE 
PRELIM. 

Coefficients  used  to  determine  the  blunt  cone 
forebody  pressure  drag  coefficient  for  cone  half 
angles  greater  than  20  and  less  than  or  equal  to 
40  degrees.  They  are  used  in  SUBROUTINE 
DRAGCO. 

Coefficients  used  to  determine  the  ratio  (Cj  with 

aP 

angle  of  attack  effects j/(C,  for  angles  of  attack  of 

P 

zero),  where  the  absolute  value  of  the  angle  of 
attack  is  greater  than  4  and  less  than  or  equal  to 
40  degrees.  If  the  absolute  value  of  alpha  is 
greater  than  40  degrees  then  alpha  is  set  equal  to 
40  degrees.  They  are  used  in  SUBROUTINE 
DRAGCO. 

Coefficients  used  in  calculating  the  strong  interac¬ 
tion  drag  coefficient  for  cone  half  angles  greater 
than  or  equal  to  15  degrees.  They  are  used  in 
SUBROUTINE  DRAGCO. 

Coefficients  used  to  determine  A(!18),  A(  1 1 9 )  and 
A(12U)  in  SUBROUTINE  DRAGCO  to  calculate 
turbulent  skin  friction  drag  coefficient. 

Coefficients  used  to  determine  the  ratio  (Cd  with 

P 

angle  of  attack  effectsJ/tQ  for  angle  of  attack  of 

lP 

zero),  where  the  absolute  value  of  alpha  is  less 
than  4  degrees  and  greater  than  zero.  They  are 

used  in  SUBROUTINE  DRAGCO. 
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A(457)  through  A(471) 


Coefficients  used  to  determine  the  bluntness 
correction  to  the  skin  friction  drag  coefficient 
for  a  bluntness  ratio  greater  than  or  equal  to  0.  2. 
They  are  used  in  SUBROUTINE  DRAGC0. 

A(472)  through  A{486)  Coefficients  used  for  the  same  purpose  as  A(457) 

through  A(4?l)  when  the  bluntness  ratio  is  less 
than  0.  2.  They  are  used  in  SUBROUTINE  DRAGCO. 

t 

A(487)  through  A(498)  Coefficients  used  to  calculate  base  drag  coefficient 

in  SUBROUTINE  DRAGCO  for  free  stream  Mach 
numbers  less  than  7. 


A(499)  through  A{510)  Coefficients  used  for  the  same  purpose  as  A(487) 

through  A(498)  when  free  stream  Mach  number  is 
greater  than  or  equal  to  7. 


4.  Numerical  Procedure 

All  the  elements  of  the  A  and  B  arrays  are  set  equal  to  zero  by 
SUBROUTINE  SR2490,  which  then  calls  SUBROUTINE  ZPRS  only  once  for 
each  computer  run  to  reset  those  elements  which  should  not  be  zero.  Array 
A  has  514  elements  and  B  has  21  elements.  Those  elements  being  reset 
here  are  set  equal  to  constant  numerical  quantities. 

5.  Other  Information 

A.  SUBROUTINE  ZPRS  calls  in  no  other  subroutines  or  functions. 

B.  SUBROUTINE  ZPRS  is  called  by  SUBROUTINE  SR2490. 
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Optimization  Techniques 


The  following  sections  deal  with  the  subroutines  involved  in 
the  optimization  process.  In  addition  to  the  subroutines 
directly  related  to  the  four  optimization  techniques  -  the  one 
and  two  variable  Fibonacci  searches,  the  Davidon  variable 
metric  method,  and  the  Rosenbrock  rotating  coordinate 
method,  those  related  to  the  penalty  function  transformation 
-  FEV,  SCREEN,  REDUCE  -  and  the  subroutine  which  cal¬ 
culates  the  gradient  of  the  penalty  function  -  FCN  are  described. 


Penalty  Function  Transformation 


The  subroutines  described  in  this  section  are  FEV  which 
defines  the  penalty  function  equation,  SCREEN  which  tests 
the  design  variables  against  limitations  imposed,  and  RE¬ 
DUCE  which  controls  the  sequence  of  solution -finding  oper 
ations  in  order  to  produce  an  optimum  solution. 


1.  Purpose 

SUBROUTINE  FEV  evaluates  the  penalty  function  whi;h  is  being 
optimized  for  the  point  described  by  the  N  values  of  the  X  array. 


2.  Input 

^indicates  integer  quantity 


Name 

Common 

Block 

Source  of 

Input 

Description 

AMULT,  20 

MIN 

ZREADX  or 
ZPRM 

multipliers  for  each  constraint 
penalty  term 

CAL0W,  20 

MIN 

ZPRM  or 
ZREADX 

lower  allowable  bounds  for 
each  constraint 

CUP,  20 

MIN 

ZPRM  or 
ZREADX 

upper  allowable  bounds  for  each 
constraint;  CTP  is  the  name  in 
ZREADX 

D 

CCRN 

MAIN 

penalty  function  value 

IC0M,  200 

IXC0M  * 

ZREADX  or 
ZPRM 

input  option 

ID  1,  50 

IDN0S  * 

ZREADX 

identification  numbers  for  the 
independent  (design)  variables; 
read  in  as  IDN0 

2 •  Input  (Concl'd) 


Name 

Common 

Block 

Source  of 

Input 

Description 

ID  2,  50 

ID  N0S  # 

ZREADX 

identification  numbers  for  the 
constraints;  read  in  as  IDC 

IEX 

S 

I0PT  * 

ZPRM 

exponent  in  the  penalty  equation; 
should  be  1  or  2  for  Fibonacci 
method;  should  be  2  for  DAVD0N 
method. 

ISUC 

-  * 

SCREEN 

integer  control  code; 

if  £  0,  function  is  calculated; 

if  <  0,  dummy  function  is  used 

LP 

OCCUR(4000)* 

FI  23 

error  code 

N 

_  * 

FMIMAX  or 
FCN 

the  number  of  independent 
variables  which  make  up  the 

X  array 

NC0NS 

I0PT* 

ZREADX  or 
ZPRM 

the  number  of  constraints  in  the 

ID 2  (input  IDC)  table 

VAL 

- 

SCREEN,  F123, 
or  CLASSC 

the  value  of  the  penalty  function 

X,  20 

- 

FMIMAX  or 
FCN 

array  containing  the  independent 
variables 

ilWlH 


'*»«**- 


3.  Output 


N 


Name  Common  Block 


D  CCRN 

ITERM  END  * 


N  -  * 

0CCUR,  4000 
VAL 
X,  20 


Description 


i 


see  input 

integer  control  code:  zero  value 
indicates  a  non- zero,  defined 
penalty  function;  non  -  zero 
value  indicates  a  zero  or  undefined 
function 

see  input 

common  block 

see  input 

see  input 


4.  Numerical  Procedure 


SUBROUTINE  FEV  begins  calculations  by  zeroing  the  quantities 
ITERM  and  VAL.  The  D0  loop  ending  with  statement  10  for  values  of  I 
from  1  to  N  sets  the  IZth  location  in  the  0CCUR  array  equal  to  the  Ith 
X  value,  where  IZ  has  the  value  ID  1(1). 

If  the  integer  code  IC0M(1)  is  equals  1,  SUBROUTINE  CLASSIC 
is  called  in  to  provide  the  optimizer  with  classic  check  case  functions, 
then  control  passes  to  statement  22.  If  IC0M(1)  is  not  equal  to  1,  control 
passes  to  statement  15  and  the  calling  of  SUBROUTINE  SCREEN  to  test 
the  design  variables  against  the  limits  imposed.  If  the  variables  are 
outside  the  limits  SCREEN  defines  a  dummy  penalty  function  and  sets 
ISUC  to  a  negative  number.  If  the  variables  are  within  the  limits,  ISUC 
is  set  equal  to  zero  in  SCREEN. 


ISUC  is  then  tested  in  FEV.  If  less  than  zero,  control  passes  to 
statement  100,  where  the  penalty  function,  VAL,  and  the  X  array  are 
printed  out,  before  the  return  to  the  calling  subroutine  is  executed.  If 
ISUC  is  greater  than  or  equal  to  zero,  SUBROUTINE  F123  is  called  to 
determine  the  reentry  vehicle  and  decoy  trajectory  data  and  perform  the 
appropriate  .matching  calculations.  If  the  error  code  LP  is  greater  than 
or  equal  to  6,  indicating  a  program  failure  in  the  trajectory  calculations, 
ITERM  is  set  equal  to  1,  indicating  an  undefined  function,  and  control 
passes  to  statement  100.  If  LP  is  less  than  6,  control  passes  to  statement 
20,  which  calls  SUBROUTINE  MISC  to  perform  miscellaneous  calculations. 
SUBROUTINE  EFFECT  is  then  called  to  calculate  the  probability  that  a 
decoy  will  be  discriminated. 
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Statement  22  teats  the  number  of  constraints,  integer  code  NC0NS; 
if  NC0MS  equals  zero,  control  passes  to  statement  100,  If  NC0N5  i6 
non-zero,  the  WRITE  statement  is  executed  which  prints  out  the  following 
titles:  IZ,  LOWER  BOUND,  UPPER  BOUND,  OCCUR(IZ),  PENALTY. 

Next  a  D0  loop  ending  with  the  statement  50  is  executed  for  values  of  I 
from  1  to  NC0NS.  At  each  pass  through  the  DOloop,  the  Ith  value  of 
PNLTY  is  zeroed  and  the  index  IZ  set  equal  to  the  Ith  value  in  the  ID2 
array.  If  0CCUR{IZ)  is  less  than  or  equal  to  the  lower  allowable  bound 
CAL0W(I),  the  foEowing  definition  is  made 

IEX 

PNLTY(I)  =  AMULT(I)  (|OCCUR(IZ)  -  CAL0W(I)|) 

and  the  results  IZ,  CAL0W(I),  CUP(I),  0CCUR(IZ),  PNLTY(I)  printed  out 
before  control  passes  to  50. 

s. 

If  0CCUR(IZ)  is  greater  than  CAL0W(Ifc  control  passes  to  statement 
25.  If  0CCURUZ)  is  greater  than  CUP(I),  PNLTY(I)  is  defined  to  be 

IEX 

■  PNLTY(I)  =  AMULT(I)  (|0CCUR(IZ)  -CUPU)f  ) 
then  statement  27  is  executed. 

If  0CCUR  (IZ)  is  less  than  or  equal  to  CUP(I)»  control  passes  to 
statement  27.  Statement  27  causes  the  printout  of  the  same  quantities 
indicated  in  the  previous  paragraph,  before  control  reaches  statement  50. 
Statement  50  defines  the  value  of  the  penalty  function,  VAL,  to  be  the  sum 
of  the  NC0NS  values  of  PNLTY.  D  is  then  equated  to  VAL,  before  VAL 
is  tested.  If  VAL  is  greater  than  zero,  control  passes  to  statement  100. 

If  VAL  is  less  than  or  equal  to  zero,  ITERM  is  set  equal  to  -  1,  indicating 
a  zero  function,before  100  is  reached. 


5 .  Other  Information 


A,  SUBROUTINE  FEV  is  called  by  the  MAIN  program  and  by  the 
following  subroutines: 

1.  SUBROUTINE  FCN 

2.  SUBROUTINE  R0SBRK. 

3.  SUBROUTINE  GIMAX 

4.  SUBROUTINE  MIMAX 

5.  SUBROUTINE  F  MI  MAX 

B.  SUBROUTINE  FEV  calls  in 

1.  SUBROUTINE  CLASSC 

2.  SUBROUTINE  SCREEN 

3.  SUBROUTINE  FI 23 

4.  SUBROUTINE  M1SC 

5,.  SUBROUTINE  EFFECT 


C.  SUBROUTINE  FEV  calls  in  the  library  function  FDXPL 
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SUBROUTINE  SCREEN  (N,  X,  ISUC,  VAL,  D) 


1.  Purpose 

SUBROUTINE  SCREEN  tests  the  values  of  up  to  twenty-five 
elements  of  the  0CCUR  array  to  determine  whether  these  values  lie 
within  prescribed  limits.  If  any  values  lie  outside  the  prescribed 
limits,  a  quantity  E  is  calculated  as  a  measure  of  the  error. 


2.  Input 

mmmJk  mmmmmmm 

All  numbers  in  the  COMMON  BLOCK  column  refer  to  positions  in  the 
0CCUR  array  unless  otherwise  indicated. 

*  indicates  integer  quantity  and  an  N0CCUR  location 

Name  Source  Common  Block 


D 

MAIN  or  FEV 

CCRN 

TCTD 

AO 

READ1T 

222 

LAMDAl 

READIT 

137 

LAMDA2 

READIT 

143 

LAI 

READIT 

138 

LA  2 

READIT 

144 

NGE0M 

READIT 

15  * 

MTMRST 

READIT 

22  * 

(0OCUR,  4001- 

„m 

PI 

SR  24  90 

42 

RBI 

READIT 

ini 

136 

ifji  m  'ii 

ml}  C 

READIT 

142 

RNl 

READIT 

135 

RM2 

READIT 

141 

SMU.LT,  25 

ZPRM 

MULT 

TH0 

READIT 

207 

THETA  I 

READIT 

1,34 

THETA2 

READIT 

140 

T0FF 

READIT 

2(0? 

rm 

.READIT 

208 
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j-'escription 


Units 


penalty  value 
specific  impulse 

RN1/RB1,  bluntness  ratio  of  the  vehicle  initial 
configuration 

RN2/RB2,  bluntness  ratio  of  the  vehicle  second 
configuration  {after  shape  change) 

axial  length  of  vehicle  initial  configuration 

axial  length  of  vehicle  fecond  configuration 
(after  shape  change) 

vehicle  geometry  input  code 

corresponds  to  input  quantity  NTHRUST;  values  0,  1, 
2  indicate  respectively  no  thrust,  thrust  vs.  altitude, 
and  thrust  vs.  time 

common  block 


seconds 


base  radius  of  the  vehicle  initial  configuration 

base  radius  of  the  vehicle  second  configuration 
(after  shape  change) 

nose  radius  of  the  vehicle  initial  configuration 

nose  radius  of  the  vehicle  after  shape  change 

multiplier  on  penalty  function,  preset  to  1.  0 
input  reference  thrust  level 

cone  half  angle  of  vehicle  initial  configuration 
in  degrees 

cone  naif  angle  of  vehicle  second  configuration  in 
degrees  (after  shape  change) 

input  time  of  thrust  shut  off  used  when  NTHRUST 
input  is  2 

time  of  thrust  onset  used  when  NTHRUST  input  is  2* 
input  quantity 


second* 


seconds 


2.  Input  (Concl'd) 


J 


Name 

Source 

Common  Block 

TST 

READIT  or  SR2490 

123 

stopping  t 

TO 

READIT 

102 

input  initi 

W1 

READIT 

133 

initial  we, 

W2 

READIT 

139 

initial  we1 
(after  aha 

Z0FF 

READIT 

206 

input  altit 
input  is  1 

Z0N 

READIT 

205 

input  altit 

ZST 

READIT 

121 

input  atop 

ZTURN 

READIT 

145 

altitude  a 

Description 


Units 


stopping  time 

t 

input  initial  time 

initial  weight  of  vehicle  first  configuration 

,  initial  weight  of  the  vehicle  second  configuration 

{after  shape  change) 

input  altitude  of  thrust  shut  off  used  when  NTHRUST 
input  is  1  (program  code  is  NTHRST) 

input  altitude  of  thrust  onset  used  when  NTHRUST  is  1 

input  stopping  altitude 

altitude  at  which  shape  change  occurs 


seconds 

seconds 

lb. 

lb. 

feet 

feet 

feet 

feet 


Name 


Description 


ISUC  * 

integer  control  code 

LAMDA1 

See  input 

LAMDA2 

See  input 

LAI 

See  input 

LA2 

See  input 

<5CCUR,  4000 

See  input 

RBI 

See  input 

RB2 

See  input 

RNl 

See  input 

RN2 

See  input 

THETA1 

cone  half  angle  of  vehicle  initial  configuration 
in  degrees 

THETA2 

cone  half  angle  of  vehicle  second  configuration 
in  degrees  (after  shape  change) 

VAL 

penalty  value  for  FEV 

4.  Numerical  Procedure 


As  a  first  step.  SUBROUTINE  SCREEN  sets  each  element  of  the 
A  array  and  each  element  of  the  PENLTY  array  equal  to  zero.  This 
is  done  in  the  D 0  loop  ending  at  statement  2.  The  following  sixteen 
statements  then  initialize  some  elements  of  the  A,  DLL  and  DUL  arrays. 
Next,  ZTURN  is  tested.  If  ZTURN  is  less  than  zero,  statement  10  is 
executed  next.  Otherwise,  the  values  of  five  more  A's  are  set  equal 
to  one.  This  is  done  in  the  D0  loop  ending  at  8,  then  statement  10 
follows. 

At  10,  NTHRST  is  tested.  If  NTHRST  equals  zero,  control 
passes  to  15.  Otherwise,  A(ll)  is  set  equal  to  one  and  NTHRST  is 
tested  again.  If  NTHRST  equals  2,  control  passes  to  12.  Otherwise, 
two  more  A's  are  set  equal  to  one  and  control  is  transferred  to  statement 
15. 

At  12,  two  additional  A's  are  set  equal  to  one  and  statement  15 

follows. 

At  15,  all  of  the  A's  required  in  calculating  PENLTY  array  have 
been  defined  and  NGE0M  is  tested.  Of  the  six  quantities  W1  (weight), 
THETA1  (cone  half  angle),  RN1  (nose  radius),  RBI  (base  radius), 
LAMDAl  (RNl/RBl)  and  LAI  (axial  length  of  vehicle),  some  are  input 
and  others  must  be  calculated.  These  describe  the  initial  geometry  of 
the  vehicle.  The  corresponding  quantities  W2,  THETA 2,  RN2,  RB2, 
LAMDA2  and  LA2  describe  the  geometry  immediately  after  shape  change. 
These  must  be  either  input  or  calculated  unless  ZTURN  is  less  than  zero, 
The  value  of  NGE0M  specifies  the  calculations  as  follows. 


If  NGE0M  equals  one,  Wl,  THETA1,  RNl,  and  RBi  have 
been  input,  then  LAMDA1  and  LAI  must  be  calculated,  W2,  THETA2, 
RN2  and  RB2  are  also  input,  if  ZTURN  is  greater  than  or  equal  to  zero; 
similarly  in  this  case  LAMDA2  and  LA2  must  be  calculated.  These 
calculations  are  performed  starting  at  statement  18. 

If  NGE0M  equals  2,  Wl,  THETAl,  RBI,  LAMDA1  and  possibly 
W2,  THETA2,  RB2  and  LAMDA2  have  been  input,but  RNl,  LAI,  and 
possibly  RN2  and  LAMDA2  must  be  calculated.  These  calculations  are 
performed  starting  at  statement  30. 


If  NGE0M  equals  three,  Wl,  RNl,  RBI  and  LAI  and  if  necessary 
W2,  RN2,  RB2  and  LA2  have  been  input,  but  THETAl  and  LAMDA1  and 
possibly  THETA2  and  LAMDA2  must  be  calculated.  These  calculations 
are  performed  starting  at  statement  40.  After  performing  the  necessary 
calculations,  control  always  reaches  statement  200  where  the  accumulator 
E  is  set  equal  to  zero. 


The  D0  loop  ending  at  statement  500  is  then  executed  twenty-five 
times.  0CCUR(IZ)  is  tested  to  see  if  it  lies  between  DLL(I)  and  DUL(I); 
statement  500  is  executed  next.  If  not,  the  value  of  PENLTY(I)  is  calculated 
and  added  to  E  at  500. 


Next  E  is  tested.  If  E  still  equals  zero,  control  passes  to  statement 
600.  If  not,  ISUC  is  set  equal  to  zero  and  control  passes  to  700. 

At  600,  ISUC  is  set  equal  to  -1,  a  table  of  values  useful  for  checking 
the  error  is  printed, VAL  is  set  equal  to  E  +  D,  and  control  passes  to 
statement  700. 


At  700  control  is  returned  to  SUBROUTINE  FEV. 


I**78 


HII 


I 


.  liiiM  liLi .  . . iBiiuiiniliiii . 


SUBROUTINE  REDUCE  {CUP,  KRED.  IRED,  LRED,  WRF) 


1.  Purpose 

SUBROUTINE  REDUCE  can  multiply  any  specified  element  of  the 
OCCUR  array  by  the  reduction  factor  WRF  and  set  the  first  element  of 
the  CUP  array  equal  to  any  specified  element  of  the  OCCUR  array  multiplied 


by  WRF. 

2.  Input 

Name 

Source 

Common  Block 

Description 

CUP,  20 

FEV 

- 

vector  of  upper  bounds  of 
constraints 

IC0M(3) 

ZREADX 

IX  COM 

test  parameter 

ID  1,  50 

ZREADX 

IDNOS 

array  containing  OCCUR  locations 
of  the  design  variables;  read  in  as 
IDN0 

ID  2,  50 

ZREADX 

IDN0S 

array  containing  OCCUR  locations 
of  the  constraints;  read  in  as  IDC 

IRED 

FEV 

- 

iteration  counter 

ITERM 

FEV 

END 

test  parameter;  non-zero  value 
indicates  a  penalty  function  which 
is  undefined  or  zero;  zero  value 
indicates  a  non-zero,  defined 
penalty  function. 

LRED 

FEV 

- 

iteration  upper  limit 

OCCUR,  4000 

- 

OCCUR 

common  array 

WRF 

FEV 

. 

reduction  factor 

1  *«.«**,  wtini  • 


3.  Output 

Name  Common  Block  Description 


’ 


\ 


P 


* 


CUP,  20 

IRED 

KRED 

0CCUR,  4000  0CCUR 


See  Input 
See  Input 
test  parameter 
See  Input 


4.  Numerical  Procedure 

SUBROUTINE  REDUCE  first  defines  IZ  as  the  location  in  the  0CCUR 
array  of  the  value  which  may  be  multiplied  by  WRF.  The  value  of  the 
iteration  counter  IRED  is  then  increased  by  one  and  compared  with  LRED, 
the  iteration  upper  limit.  If  IRED  equals  LRED,  statement  100  is 
executed  next.  If  IRED  is  less  than  IRED,  ITERM  is  tested:  control  is 
transferred  to  10,  60,  and  50  when  ITERM  is  respectively  negative,  positive 
and  zero. 

In  the  D0  loop  starting  at  10,  the  first  IN  elements  of  the  ID1  array 
are  compared  with  IZ.  If  one  of  these  if  found  equal  to  IZ,  statement  40 
is  executed  next.  If  no  equality  is  found,  the  statement  following  20  will 
test  IC0M{3).  If  IC0M(3)  equals  one,  statement  40  is  executed.  If 
IC0M(3)  equals  zero,  0CCUR(IZ)  is  set  equal  to  WRF*0CCUR(IZ),  KRED 
is  set  equal  to  zero  and  control  is  transferred  to  200. 

At  40  CUP(l)  is  set  equal  to  WRF*0CCUR(IZ).  KRED  is  set  equal 
to  zero  and  control  goes  to  200. 

At  50  KRED  is  set  equal  to  1  and  statement  200  is  executed. 

This  is  intended  for  possible  future  implementation. 


i 

4 


At  60  KRED  is  set  equal  to  1  and  control  is  transferred  to 


statement  200. 


At  100  KRED  is  set  equal  to  -1  then  statement  200  is  executed. 
At  200  control  is  returned  to  the  main  program  where  KRED  is 

tested. 

If  KRED  equals  zero,  MAIN  sends  control  to  the  appropriate 
optimization  technique  for  another  iteration.  Otherwise,  data  for  a 
new  case  is  read. 

5.  Other  Information 


A.‘  SUBROUTINE  REtJUCE  is  called  by  the  main  program,  MAIN, 


only. 


B.  SUBROUTINE  REDUCE  does  not  call  or  reference  any  other 
subprogram. 


1  1  Rf 
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2.  2  Gradient  of  the  Penalty  Function 

The  subroutine  FCN  calculates  the  gradient  of  the  penalty 
function  defined  by  FEV.  The  partial  derivatives  are  cal¬ 
culated  with  respect  to  the  design  variables  using  finite 
difference  techniques. 


SUBROUTINE  FCN(N,  G,  F,  X,  Ml) 


i.  Purpose 

SUBROUTINE  FCN  must  compute  the  function  F  and  the  gradient 
vector  G  (i.  e. ,  the  vector  whose  elements  are  the  first  partial  derivatives 
of  F  with  respect  to  the  parameters),  given  the  N  coordinates  of  the  point 
X 


2.  Input 

*  indicates  integer  quantity 


Common 
Name  Location 


Source  of 
Input 


Description 


DELX,  20  D(0PT 


ZREADX  or  finite  difference  increment 

ZPRM  for  each  variable  (should  foe 

smaller  than  'anticipated 
step  size) 


F  -  FEV 

FM  FEV 

I0P,  90  I0CCUK 1  -90)  *  ZREADX  or 

SR  2490 


penalty  function  value 
penalty  function  value 
input  option  code 


ITERM  END  ♦  FEV  integer  control  code;  a  aero 

value  indicates  'that  function  F 
is  non- zero  and  defined;  :a 
non- zero  value  indicates  that 
F  is  either  zero  or  undefined 

Ml  -  *  DAVD0N,  REACH  integer  control  code;  is  set  to  1 

AIM.FIRE  for  first  call  of  FCN,  to  2  for 

each  subsequent  call  up  to  the 
list,  to  3  for  last  entry  to  FCN. 


MS 


BLKI  * 


DAVDON  or 
STUFF 


integer  counter  for  the  number 
of  random  steps 


2.  Input  (Concl'd) 


Common 

Source  of 

Name 

Location 

Input 

Description 


N 

NPL0T,  5 
X,  40 


-  *  DAVD0N  number  of  independent 

variables 

N0CCUR(24-28)  READIT  plotting  option  code 

-  DAVD0N,  READ  Y,  independent  variable  array 
AIM,  FIRE 


3.  Output 

Name 

Common  Location 

Description  . 

F 

- 

See  Input 

G,  40 

- 

the  gradient  of  F  at  point  X 

I0P,  90 

I0CCUR(1-9O)* 

See  Input 

N 

-  # 

See  input 

NPL0T,  5 

N0CCUR(  24-28)  * 

plotting  option  code 

NPRINT 

N0CCUR(  14)  * 

option  code  controlling 
detailed  printout  of  trajectory 
information 

X,  40 

- 

See  Input 

4.  Numerical  Procedure 

SUBROUTINE  FCN  begins  calculations  with  a  D0  loop,  ending  at 
statement  416,  which  defines  the  14  elements  of  th’e  NPSAVE  array  as 
follows: 
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NPSAVE{  1-6)  =  l0p(64-69)  respectively 

NPSAVE(7-11)  =  NPL0T(l-5)  respectively 

NPSAVE(  1 2- 14)  =  I0P(l-3)  respectively 

Then,  if  Ml  equals  3,  indicating  the  last  call  of  FCN,  the  print  code  NPRINT 

is  set  equal  to  1  to  allow  detailed  trajectory  printout,  FEV  is  called  to 
calculate  the  final  value  of  F,  NPRINT  is  reset  to  zero,  and  control 
passes  to  statement  106.  If  Ml  is  not  equal  ti  3,  control  passes  to 
statement  5. 

Statement  5  calls  SUBROUTINE  FEV,  then  the  quantity  ITERM  is 
tested.  If  ITERM  is  not  equal  to  zero  indicating  a  zero  or  undefined  F, 
control  passes  to  106.  If  ITERM  equals  zero,  the  D0  loop  ending  with 
statement  417  is  executed.  Here  the  values  of  I0P  (1-3,  64-69)  and 
NFL0T  (1-5)  are  zeroed.  A  second  D 0  loop  ending  with  statement  105  is 
then  employed  to  define  the  N  elements  of  the  G  array.  This  is  accomplished 
by  increasing  the  Ith  element  of  the  X  array  by  the  Ith  element  of  the  DELX 
array  to  define  the  Ith  term  of  new  X  array,  then  calling  FEV  for  this 
element  of  X  to  define  FM.  ITERM  is  tested;  if  non»zero,  control  passes 
to  106?  otherwise,  the  Ith  term  of  the  G  array  is  defined  as  G(I)  = 

DELX(I) 

The  Ith  element  of  DELX  is  then  subtracted  from  the  Ith  term  of  the  new 
X  array  to  restore  the  original  value  to  the  X  array  before  statement  105 
is  reached.  Statement  106  is  executed  next. 

Statement  106  is  the  beginning  of  a  D0  loop  ending  at  statement  418, 
which  restores  the  values  of  I0P(l-3,  64-69)  and  NPL0T  (1-5)  which  were 
stored  in  the  NPSAVE  array.  Following  statement  418,  a  test  on  Ml  sends 
control  to  statement  1000,  if  Ml  is  not  equal  to  1.  If  Ml  equals  1,  first  the 
internal  quantities  IRC  and  IC  are  set  equal  to  1,  then  statement  1000  causes 


the  quantities  IC,  MS,  F,  and  the  elements  of  the  X  array  to  be  printed 
out.  The  WRITE  statement  following  causes  the  elements  of  the  G  array 
to  be  printed  out.  Then  IC  is  increased  by  1  before  the  return  to  the 
calling  program  is  executed. 

5.  Other  Information 

A.  SUBROUTINE  FCN  is  called  by  the  following  subroutines: 

1.  SUBROUTINE  DAVDQfN 

2.  SUBROUTINE  AIM 

3.  SUBROUTINE  READY 

4.  SUBROUTINE  FIRE 

B.  SUBROUTINE  FCN  calls  in  SUBROUTINE  FEV. 


Search  Logic 


The  search  logic  for  the  four  optimization  techniques  is 
explained  in  the  following  sections. 


ill' 
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The  Davidon  variable  metric  method  is  programed  lor  machine  computation 
in  the  six  subroutines  -  DAVDON,  READY,  AIM,  FIRE,  DRESS,  and  STUFF  - 
with  specialized  procedures  of  matrix  multiplication  and  random  number 
generation  performed  by  MATMP  and  RANDOM  respectively. 

SUBROUTINE  DAVDON  is  the  controlling  routine  for  the  calculations  of  the 
Davidon  method.  The  basic  procedure  is  as  follows:  In  order  to  calculate 
the  initial  value  of  the  penalty  function  and  its  gradient,  DAVDON  calls 
SUBROUTINE  FCN  which  in  turn  calls  FEV.  Next,  SUBROUTINE  READY 
is  called  to  establish  the  direction  along  which  the  search  for  the  relative 
minimum  is  to  be  carried  out  and  to  box  off  the  interval  in  this  direction 
within  which  the  relative  minimum  is  located.  SUBROUTINE  AIM  estimates 
the  location  of  the  relative  minimum  within  the  selected  interval  (interpolated 
point)  and  compares  this  with  the  result  of  taking  a  step  perpendicular  to  the 
direction  chosen  by  READY.  If  the  perpendicular  step  is  an  improvement, 
SUBROUTINE  DRESS  is  called  to  revise  the  metric  and  the  process  repeated. 
If  not, SUBROUTINE  FIRE  is  called  to  evaluate  the  function  at  the  interpolated 
point  and  to  determine  if  the  minimum  has  been  sufficiently  well  located.  If 
so,  the  rate  of  change  of  the  gradient  is  evaluated  by  interpolating  from  its 

i 

values  at  the  initial,  interpolated,  and  end  points  before  SUBROUTINE  DRESS 
is  summoned.  If  not,  SUBROUTINE  AIM  is  recalled.  SUBROUTINE  DRESS 
modifies  the  mettle  on  the  basis  of  information  obtained  about  the  function  in 
previous  iteration# .  When  the  minimum  has  been  sufficiently  well  located, 


SUBROUTINE  STUFF  is  called  to  test  how  well  the  function  has  been  minimized 


and  how  well  the  metric  approximates  the  matrix  of  second  partial  derivatives 
of  the  penalty  function  at  the  minimum.  This  is  done  by  displacing  the  evaluatio 
point  from  the  location  of  the  minimum  in  a  random  direction.  Currently  the 
random  number  generator  is  not  being  used  and  instead,  at  this  point  in  the 
procedure,  the  current  search  is  terminated  and  tests  for  the  convergence  of 
the  sequential  procedures  are  made  in  SUBROUTINE  REDUCE. 
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SUBROUTINE  DAVD0N 


1.  Purpose 

SUBROUTINE  DAVD0N  is  the  controlling  subroutine  for  the  calculations 
of  the  Davidon  variable  metric  method  of  minimization,  which  determines 
numerically  the  local  minima  of  differentiable  functions  of  several  variables,, 

In  the  process  of  locating  each  minimum,  a  matrix,  ®  ,  which  characterizes 

the  behavior  of  the  function  about  the  minimum  is  determined. 


2.  Input 

♦indicates  integer  quantity 


i,im  ...iif '^in'uiiiiimnimijii 


Sj 


Block  Common 

Source  of 

Name 

Symbol 

Name 

Input  ' 

HD  IT  CC 
UXxJIjOO 


DRESS 


>1 


or  DRESS 


Description 


constraints  on  the  matrix  h  ,  not  currently  being  used 

input  estimated  initial  value  for  determinant  of  H  matrix  input 
quantity  is  DELTA  preset  to  1,  0 

the  program  input  stopping  tolerance  on  the  transformed  gradient; 
preset  to  ,  01 

the  value  of  the  penalty  function  at  the  point  x'**- 
corresponds  to  program  input  FAC;  see  text 
the  value  of  the  gradient  of  the  function  evaluated  at  x^ 
the  component  in  the  s  direction  of  g  ^ 

the  non-negative  symmetric  matrix  which  willbe  used  as  a  metric  in 
the  space  of  the  variables  x^c 

the  program  input  for  the  number  of  independent  variables;  preset  to  1 

random  step  size  control;  preset  to  0 

printout  code  which  should  be  set  to  0;  preset  to  0 

integer  code;  if  <  0,  indicates  that  the  function  is  zero;  if  «  0, 
functions  defined  and  non- zero;  if  >  0,  function  is  undefined 

the  maximum  number  of  iterations  allowable;  where  an  iteration  is  the 
total  process  of  selecting  a  direction,  bracketing  the  minimum  in  that 
direction  and  locating  the  minimum;  preset  to  30 

multiplier;  preset  to  0,  0 

intermediate  parameter  in  defining  constrained  matrix,  never  used 
in  this  subroutine 

intthisiesulbrou?fnemeter  in  defining  con8t*ai»«d  h'* ‘‘matrix,  never  used 


FAC 

BLK0 

G,  40 

v 

BLK0 

GS 

gs 

BLK0 

He  1600 

h^* 

BLK0 

IT 

* 

BLKI 

K 

a 

BLKI 

L 

a 

BLKI 

Ml 

a 

BLKI 

MS 

a 

BLKI 

N 

a 

BLKI 

see  text 
see  input 
see  input 
see  input 

integer  iteration  counter 
random  step  control 
internal  control  code 

integer  control  which  is  set 
equal  to  1  for  the  first  entry 
into  FCN  to  Z  for  subsequent 
entries  up  to  the  final  entry,  and 
to  3  for  the  final  entry  integer 
counter  for  the  number  of 
random  steps 

integer  counter  for  the  number  of 
random  steps 

number  of  independent  variables 


3.  Output  (Cone I'd) 


Block  Common 


Name 

Symbol 

Name 

Description 

NC 

BLKI 

number  of  constraints 

P 

BLK  0 

multiplier  used  in  SUBROUTINE 
STUFF 

T,  40 

t 

BLK0 

see  input 

X,  40 

V- 

BLK0 

the  set  of  N  independent  variables 
describing  the  point  from  which 
a  step  is  taken  to  begin  the 
search  for  a  minimum 

* 


v 


4.  Numerical  Procedure 

SUBROUTINE  DAVD0N  begins  with  the  setting  of  internal  program 
parameters  to  the  corresponding  input  values  and  the  setting  of  certain 
initial  values.  Then,  if  the  input  quantity  FAC  is  zero,  control  passes 
to  statement  1066.  This  is  the  beginning  of  a  D®  loop  ending  with 
statement  1068  which  completes  the  formation  of  the  symmetric  H  matrix 
by  defining  the  lower  left  triangular  portion  from  the  input  upper  right 
triangular  portion  of  H.  If  FAC  is  not  zero,  control  passes  to  statement 
106,  the  beginning  of  a  D®  loop  ending  at  1064  which  zeroes  the  non¬ 
diagonal  elements  of  the  H  matrix  and  sets  the  diagonal  elements  equal 
to  F AC.  Printout  of  the  initial  H  matrix  and  of  the  initial  estimate  of 
the  independent  variables,  X(I),  is  executed.  The  counter  Ml  is  set  to 
1  at  the  first  entry  into  FCN;  ( it  is  set  to  2  for  subsequent  entries  up  to 
the  final  entry  and  it  is  set  to  3  for  the  final  entry). 

In  statement  1 165,  the  function  F  which  is  being  minimized  is  set 
equal  to  zero,  SUBROUTINE  FCN  is  called  to  compute  the  function  F  and 
the  gradient  G,  whose  elements  axe  the  first  partial  derivatives  of  F  with 
respect  to  the  parameters.  If  the  integer  code  ITERM  is  hot  foal  to 
zero,  which  indicates  'that  function  F  is  either  zero  or  undefined  control 
passes  to  statement  149.  If  ITERM  =  0  indicating  that  function  F  is 
non-zero  and  defined,  then  F  itself  is  tested.  .  If  F  is  negative  or  zero, 
control  passes  to  statement  1393;  but,  if  F  is  positive,  control  passes 
to  statement  118  where  the  integer  code  L  is  set  equal  to  I,  The  iteration 
counter  integer  IT  is  set  equal  to  zero,  before  WRIT®  statements  are 


executed.  In  statement  1201  the  quantity  NC,  the  number  of  linear 
constraints  on  the  parameters,  is  tested.  Presently  control  always 
passes  to  statement  121,  since  HC  is  defined  as  zero  at  the  beginning 
of  DAVD0N.  Thus  statements  1202  through  1209,  which  allow  for  the 
future  application  of  constraints  on  the  parameters,  are  bypassed. 

SUBROUTINE  READY  is  called  in  by  statement  121  to  determine  the 

search  direction,  s,  the  gradient  in  the  search  direction,  g  ;  if 

I  8gl  ^  £, »  to  estimate  the  step  size  in  x  to  bracket  the  minimum  along 

*1*  4* 

S;  and  to  calculate  f  ,  g  ,  and  gg  ,  which  are  respectively  f  ,  g  and 
at  the  incremented  x.  If  ITERM  is  not  equal  to  zero  for  f  ,  control 
passes  to  statement  149;  otherwise  the  value  of  L  is  tested  in  statement 
123  for  ITERM  =0.  If  L  equals  1,  control  passes  to  statement  139;  if 
L  equals  2,  control  passes  to  statement  159  where  L  is  set  equal  to  4  and 
then  to  statement  133;  if  L  equals  3,  control  passes  to  statement  137 
where  L  is  set  equal  to  3  and  then  to  statement  133;  if  L  equals  4,  control 
passes  to  statement  126  .  Statement  126  calls  SUBROUTINE  AIM,  which 
determines  whether  the  minimum  has  been  bracketed  by  the  steps  and, 
if  it  has*  compares  the  minimum's  location  with  the  value  which  would  be 
expected  from  a  perpendicular  step.  After  the  return  from  SUBROUTINE 
AIM,  ITERM  is  tested  and,  if  non-zero,  causes  control  to  be  sent  to 
statement  149.  If  ITERM  =  0,  the  integer  code  L  is  used  in  the  directed 
G®  T®  of  statement  128; if  L  =  1,  control  passes  to  129;  if  L  *  2  or  3, 
control  passes  to  statement  133.  Statement  129  calls  SUBROUTINE  FIRE 
to  interpolate  for  the  minimum  along  the  search  direction  and  calculate 
the  function  at  the  interpolated  point.  If  the  value  of  the  function  causes 
ITERM  to  be  non-zero,  upon  return  from  FIRE,  control  passes  to  statement 
149.  If  ITERM  is  zero,  the  directed  G0  T0  passes  control  to  statement 
135,  if  L  *1,  there  L  is  set  to  2  before  control  passes  to  statement  133, 


Similarly,  if  L  =  2,  control  passes  to  statement  132  where  L  is  set 
equal  to  1  and  then  to  statement  133,  If  L  =  3,  control  passes  to 
statement  126  which  recalls  SUBROUTINE  AIM. 

Statement  133,  calls  SUBROUTINE  DRESS  to  modify  the  H  matrix, 
increase  the  quantity  IT  by  1,  and  set  F  equal  to  EB,  f ,  Then,  if 
F  <  0.  0  or  IT  >  the  limiting  value  ITLIM,  control  passes  to  statement 
142.  The  directed  G0  T0  of  statement  134  causes  control  to  pass  to 
statement  124  if  L  =  1  or  162  if  L  =  2.  Statement  124  sets  L  =  2  and 
passes  to  statement  1201  and  the  SUBROUTINE  READY  is  recalled. 

If  L  *  2,  control  is  returned  to  MAIN  by  statement  162. 

Statement  139  tests  the  parameter  ISENl,  a  printout  code  (which 

should  be  set  to  zero),  which,  if  <  0  passes,  control  to  statement  1395 

and,  if  >  0,  to  statement  1393,  Statement  1393  causes  the  X  array  to 

be  printed  out.  Statement  1395,  calls  in  SUBROUTINE  STUFF  which  tests 

how  well  the  function  has  been  minimized  and  how  well  the  matrix  H 
d**f 

approximates  ||  ■■■>■“  — ~  ||  at  the  minimum.  Then  in  statement  141, 

e)x^"dx 

the  directed  G0  T0  sends  control  to  statement  1165  for  the  next  iteration 
if  L  =  1  or  to  statement  142  if  L  =  2.  Statement  142  causes  the  title 
"FINAL  VALUES"  to  be  written.  The  the  interation  counter  IT  is  tested 
if  IT  $  the  limiting  value  control  passes  to  143,  otherwise,  a  message 
that  the  program  has  not  converged  is  written  before  143  is  reached. 
Statements  numbered  143  through  148  write  the  final  output  quantities. 
Statement  149  sets  Ml*3  before  the  calling  of  SUBROUTINE  FCN  for  the 
final  values  of  F  and  G.  The  test  of  ISENl  in  statement  151  is  performed, 
if  ISENl  S  0  control  passes  to  the  CONTINUE  statement  152  and 
immediately  reaches  a  GQf  T0  157  statement.  If  ISENl  is  >  0,  control 
passes  directly  to  157,  a  CONTINUE  statement  preceding  the  RETURN 
statement  162, 
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Other  Information 


A,  SUBROUTINE  DAVD<^N  is  called  by  the  main  program. 

B.  SUBROUTINE  DAVD0N  calls  in  the  following  subroutines 


1.  SUBROUTINE  FCN 

2.  SUBROUTINE  MATMP 

3.  SUBROUTINE  READY 

4.  SUBROUTINE  AIM 

5.  SUBROUTINE  FIRE 

6.  SUBROUTINE  DRESS 

7.  SUBROUTINE  STUFF 


SUBROUTINE  READY 


SUBROUTINE  READY  performs  the  calculations  of  the  Davidon 
minimization  method  which  establish  a  direction  along  which  to  search 
for  a  relative  minimum  and  box  off  an  interval  in  this  direction  within 
which  a  relative  minimum  is  located.  In  addition,  the  criterion  for 
terminating  the  Iterative  procedure  is  evaluated. 


2.  Inpu 


Common  Source  of 


D  ELTA 

A 

BLK0 

MAIN  or 
ZREADX 

the  determinant  of  the  matrix 

E 

€ 

BLK0 

DAVD0N 

input  stopping  tolerance  on 
the  transformed  gradient 

F 

f 

BLK0 

DAVD0N 
or  DRESS 

the  penalty  function  evaluated 

at  the  point 

FGSM 

NALTFG 

ZREADX 

input  mutliplier  used  in 
defining  A. 

FF 

£+ 

BLK0 

FCN  or 
FIRE 

the  value  of  the  function  at 
the  point 

G,  40 

gyW. 

BLK0 

DAVD0N 
or  DRESS 

the  gradient  of  the  function  at 
the  point 

rtp,  do 
Wlr| 

.  + 

8  M 

'  A- 

BLK0 

FCN 

the  gradient  of  the  function  at 
the  point  xV*** 

1-99 

urnm  t'ffvi  i  ii  y  iiM  ii  s i !' s  ii « i ®i' •  i sii j i"  i  1 1  s 

i  i  y  ii'1 ! ii ifi I  $  111 ' wi.j ® pp,,: 7  -  I  I 111  Pill  1  Ijili!  iltli  Wf lulpJ'  liluBil  IP 

■  9i  I 

. 

uo 


BLK0 


MATMP 


g 


s 


the  component  of  g  in  the 
s  -^direction  >W" 


GSP  g  + 

8 

BLK0 

MATMP 

the  component  of  g+  in  the 

S  direction  ^ 

H,  1600  h 

BLK0 

DAVD0N 
or  DRESS 

the  non- negative  symmetric 
matrix  which  will  be  used  as 
a  metric  in  the  space  of  the 
variables  x 

ITERM 

END 

FEV 

integer  code:  if  <  0,  indicates 
that  the  function  is  zero; 
if  =  0,  indicates  function  is 
defined  and  non-zero; 
if  >  0,  function  is  undefined 

L 

■i 

BLKI 

DAVD0N 
or  DRESS 

internal  control  code 

N 

m 

BLKI 

DAVD0N 

number  of  independent  variables 

NALT 

NALTFG 

ZREADX 

program  input  option;  if  *»  0, 
the  normal  logic  proceeds, 
if  ®  1  the  procedure  which 
describes  the  step  size  is  used 

S,  40 

S^ 

BLK0 

MATMP 

the  direction  along  which  the 
search  for  relative  minimum 
is  to  proceed  from 

SL 

X 

BLK0  ''' 

AIM 

the  squared  length  of  s 

X,  40 

X ^ 

BLKO 

MAIN, 
STUFF,  or 
DRESS 

the  set  of  N  independent 
variables  describing  the 
point  from  which  the  search 
proceeds 

3.  Output 


Common 

Name 

Symbol 

Block 

Description 

DELTA 

A 

BLK0 

see  input 

FB 

f 

BLK0 

the  actual  value  of  the  penalty 
function  at  the  interpolated  point 

GB,  40 

S  >L 

blkO 

the  value  of  the  gradient  of  the 
function  evaluated  at  the  interpolated 
point 

GP,  40 

+ 

8 

BLK0 

see  input 

IT 

- 

BLKI 

iteration  counter 

L 

BLKI 

see  input 

MI 

BLKI 

the  integer  control  which  is  set  equal 
to  1  for  the  first  entry  to  FCN,  to  2 
for  subsequent  entries  up  to  the 
final  entry,  and  to  3  for  the  final 
entry 

N 

m 

BLKI 

see  input 

S,  40 

s'* 

BLKfc 

see  input 

SL 

X 

BLK0 

see  input 

T,  40 

BLK0 

takes  on  the  value  of  XP 

T0 

*o 

BLK0 

1/SL 

X,40 

x' 

BLK0 

see  input 

XP  40 

X 

BLK0 

the  point  described  by  the  independent 
variables  after  a  step  of  length  A 
along  s  fromx 

4.  Numerical  Procedure 


SUBROUTINE  READY  begins  by  testing  the  control  integer  L. 
If  L  *  1,  the  iteration  counter  IT  is  set  equal  to  one;  indicating  the 
first  iteration,  before  control  passes  to  statement  201.  If  L  =  2, 
control  passes  directly  to  statement  201  which  calls  SUBROUTINE 
MATMP  and  utilizes  statements  202  and  203  to  define  the  search 
direction,  s,  as 


S  a 


SUBROUTINE  MATMP  is  then  called  to  compute  g  from  g  =  s'g  , 
From  the  equations  for  s  and  gg,  one  sees  that  -  gg  is  the  squared 
length  of  8  ,  thus  the  improvement  to  be  expected  in  the  function  is 
-l/2gs*  The  positive  definiteness  of  h insures  that  g  is 
negative,  so  that  the  step  is  in  a  direction  which,  at  least  initially, 


decreases  the  function.  If  the  decrease  is  written  the  accuracy  desired, 
e* »  g  +  €  >  0,  0  in  test  of  statement  206,  then  the  minimum  has 

s 

been  determined  and  control  passes  to  statement  227  where  L  is  set  equal 
to  1  and  control  returns  to  DAVDON.  If  g  +  €  <  0,  the  procedure 

continues  by  passing  to  statement  207  where  TP1  is  defined  using  the 
input  PGSM  as 


TP1  ■  -  FGSM(~) 

8  s 


The  quantities  g  ,  €  ,  TP1,  and  IT  are  then  printed  out,  before  X  , 
EL,  is  set  equal  to  the  smaller  value  of  the  quantities  2.0  and  TP1  and 
-A  SL,  is  defined  as  *>  gg.  Then  x  the  value  of  x  after  the  step 

in  the  a  direction,  is  evaluated  from  »  x^  +  X  s Ml  is 
set  equal  to  2,  and  SUBROUTINE  FCN  is  called  to  compute  the  function 


Irl02 


f 


*f 'Ah*  4" 

and  its  gradient  to  xy  ,  f  and  g  respectively.  If  the  function  is 
zero  or  undefined,  the  code  ITERM  i  0,  causing  the  X  array  to  be 
equated  to  the  XP  array,  i.  e. ,  x  .  l<~'=  x  ■  **",  before  executing  a  return 
to  DAVDON.  If  the  function  is  defined  and  non-zero,  ITERM  =  0  and 


control  passes  to  statement  214,  where  SUBROUTINE  MATMP  is  called 

4*  li* 

to  yield  the  projection  of  the  gradient  at  x'  in  the  direction  of  the  step, 

+  jU*  “1“  4*  4" 

g  ,  which  equals  s  •'  g  .  If  g  >  0. 0  or  f  >  f,  then  there  is  a 

relative  minimum  along  the  direction  s  between  x-  <<-and  x  'tv”and 

control  passes  to  statement  22V  where  L  is  set  equal  to  4  and  executes  the 

return  to  DAVDON  which  then  calls  SUBROUTINE  AIM  to  interpolate 

for  the  point.  On  vhe  other  hand  if  g+  <  0,  0  and  f  <  f ,  control 

s 

passes  to  statement  218  which  writes  the  message  "UNDERSHOT" 
indicating  that  the  step  taken  was  too  small.  The  input  option  code 
NALT  is  then  tested.  If  NALT  $  0,  the  normal  logic  is  pursued  and 
control  passes  to  statement  231.  If  NALT  >  0,  control  passes  to 
statement  10  where  the  step  size  X  ,  EL,  is  doubled  and  then  to 
statement  210  to  repeat  the  calculations  with  the  new  step. 


Starting  with  statement  231.  the. following  quantities  are  defined 
f  *  f  ,  g  *  g^,  and  t ■''*’=  X-  If  the  step  size  X  is  less  than 
2.  0,  control  passes  to  statement  221  where  L  is  set  equal  to  3  before  the 

return  to  DAVDON  which  then  calls  in  SUBROUTINE  DRESS  to  alter  the 

'J 

h  matrix. 


If  the  step  size  X  >  2.  0,  control  passes  to  statement  223  where 
A  =  2.  0  A  ,  t  =  1,  OfJ*.  ,  and  L  =  2  are  defined  before  the  return  to 
DAVDON  which  redefines  L  as  4  and  calls  in  SUBROUTINE  DRESS. 
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5*  Other  Information 

A.  SUBROUTINE  READY  is  called  by  SUBROUTINE  DAVDON. 

B.  SUBROUTINE  READY  calls  in  SUBROUTINE  MATMP  and 
SUBROUTINE  FCN. 


SUBROUTINE  AIM 


1.  Purpose 

SUBROUTINE  AIM,  part  of  the  Davidon  minimization  method, 
estimates  the  location  of  the  relative  minimum  within  the  interval 
selected  by  SUBROUTINE  READY.  This  location  is  compared  with 
the  value  that  would  be  expected  from  a  "perpendicular  step". 


2.  Input 

Vindicates  an  integer  quantity 


Name 


Symbol 


Block  Common 
Name 


Source  of 
Input 


Description 


the  step  length  along  s  from  x''*  to 
the  value  of  the  penalty  function  at  the  point  x'4* 
the  actual  value  of  the  penalty  function  at  the  interpolated  point 
the  value  of  the  penalty  function  at  the  point 
the  gradient  of  the  function  at  the  interpolated  point 
the  value  of  the  gradient  of  the  function  at  the  point 

the  component  in  the  S  direction  of  the  gradient  at 
the  component  in  the  S  direction  of  the  gradient  at 

-f* 

the  component  of  g  in  the  direction  of  the  perpendicular  step  t^ 

the  component  in  the  S  direction  of  the  gradient  at  the  interpolated  point 

the  non-negative  symmetric  matrix  which  will  be  used  as  a  metric  in 
the  space  of  the  variables  x-^ 

error  code 

the  number  of  independent  variables 

the  chosen  direction  along  which  the  search  for  the  relative  minimum 
is  to  proceed 

squared  length  of  s  <*** 

the  step  to  tbs  optimum  point  in  the  N-l  dimensional  surface  perpendicular 
to  a/*-  through  x*>*“ 


2,  Input  (concl'd) 


X,  40 

X 

BLK0 

MAIN,  STUFF,  DRESS, 
or  FIRE 

XP,  40 

X 

BLK0 

FIRE  or  READY 

Description 


the  set  of  N  independent  variables  describing  the  point  from  which  a 
step  is  taken  to  begin  the  search  for  a  minimum 

the  set  of  N  independent  variables  describing  the  point  which  is 
reached  by  taking  a  step  of  length  A  in  the  S  direction  from  point  x"^" 
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3.  Output 


Name 

Symbol 

Block  Common 
Name 

Description 

A 

a 

BLK0 

the  percentage  of  A  by  which 
the  minimum  in  f  is  expected  to 
precede  x+*^t 

EL 

X 

BLK0 

see  input 

f 

o 

BLK0 

the  expected  value  of  f  at  the 
minimum 

GB,  40 

g  -A 

BLK0 

see  input 

GP,  40 

+ 

8  A 

BLK(0 

see  input 

GSS 

8  SB 

BLK0 

the  component  in  the  S  direction 
of  the  quadratically  interpolated 
value  for  the  gradient  at  the 
interpolated  point 

GTT 

gtt 

blkO 

see  input 

BLK0 

see  input 

L 

* 

BLKI 

internal  control  code 

M 

+ 

BLKI 

an  integer  code  output  to  MATMP 
to  define  thf  number  of  columns 
in  MATMP  input  matrix  and  the 
number  of  elements  in  the 
resulting  vector 

Ml 

* 

BLKI 

integer  control  which  is  set  equal 

to  1  for  the  firet  entry  Into  FCN, 
to  2  for  eubeequent  entries  up  to 


3,  Output  (concl'd) 


Name 

Symbol 

Block  Common 
Name 

Description 

Q 

Q 

BLK0 

see  text 

S,  40 

s^ 

BLK0 

see  input 

SL 

JL 

BLK0 

see  input 

T,  40 

BLK0 

see  input 

T0 

t 

o 

A 

BLK0 

the  amount  by  which  the  minimum 
in  f  is  expected  to  fall  below  f+ 

X,  40 

X 

BLK0 

see  input 

Z 


z 


BLK0 


see  text 


4.  Numerical  Procedure 


SUBROUTINE  AIM  begins  with  the  calculation  of  preliminary 
quantities  by  evaluating  the  following  equations: 


Z  =  s  +  g  +  ♦  Mijh 
8  “  1 
t  =  g  /z 

O  S 


t  =  g  /  Z 
i  s 


Q  =  |  v/l.O  -  t  t.  *  Z'\ 

^  A  1  1 


a  =  (  g  +  +  Q  -  Z)  /  (  g  +  -  g  +  2.0Q) 


s  s 


For  a  step  in  the  S  direction,  the  amount  to  which  the  minimum  in  £  is 
expected  to  fall  below  f*  is  t 


(  8  .  +  Z  +  2.0Q) 


Thus  the  expected  value  of  f  at  the  minimum  then  is  f  a  f+  -  t  . 

o  o 

SUBROUTINE  MATMP  is  called  in  to  determine  the  t^'~  from  t  ^  *  li^* 
The  values  of  t  AL,  the  step  to  the  optimum  point  in  the  N-l  dimensional 
surface  perpendicular  to  s  ^  through  x  +>*■  are  redefined  so  that 


*h  g 


SUBROUTINE  MATMP  is  then  called 

^  rr  4  _ .  V  ,  -  .  « 


to  evaluate  the  expression  g  +  =  t^g  +  ,  twice  the  change  in  f  to  be 


expected  from  step  t.,  . 

A 


i 


* 

“I* 

If  the  sum  2.  0  tQ  +  is  leBs  than  zero,  control  passes  to 
statement  317;  if  greater  than  or  equal  to  zero,  control  passes  to 
statement  312.  Statement  312  begins  the  calculations  which  redefine 
the  t  ^  to  be 

t^''  =  ax  'lC  +  (1.0  -  a)  x+^, 

then  set  the  control  code  L  =1  before  returning  to  DAVD0N  which 
subsequently  calls  in  FIRE  to  perform  calculations  at  the  interpolated 
point  for  the  minimum  along  S. 

Statement  317  tests  the  sum  f  +  g  /2.  0;  if  this  is  less  than  zero, 

t 

control  passes  to  statement  312  and  the  procedure  described  above;  if 
this  is  greater  than  or  equal  to  zero  control  passes  to  statement  318. 

•  Statement  318  evaluates  the  function  for  the  perpendicular  step  t  by 

redefining  t"^  =  v*  +  x  ^ ,  by  setting  the  integer  code  Ml  =  2,  and 
by  calling  SUBROUTINE  FCN  at  point  t  ^  to  obtain  the  value  of  the 
»  function  f  and  its  gradient  g^.  If  the  error  code  ITERM  t  0; 

indicating  that  f  is  either  zero  or  undefined,  the  x  ^  are  set  equal 
to  t*"  and  control  returns  to  DAVD0N.  If  ITERM  »  0,  indicating  that 
f  is  neither  undefined  nor  zero,  control  passes  to  statement  322. 

Statement  322  compares  the  values  of  the  function  at  the  minimum 
point,  f  and  fQ,  as  determined  by  the  perpendicular  step  and  the  step 
along  s  respectively.  If  f  is  greater  than  fQ  control  passes  to  statement 
312  and  the  procedure  described  previously  for  the  use  of  the  interpolated 
point  is  utilized.  If  f  is  smaller  than  f^,  meaning  that  the  perpendicular 
point  is  to  be  used,  control  passes  to  statement  323. 

f 


1-111 


Statement  323  writes  the  message  "RICOCHET".  The  s  is 

redefined  as  s  "  =  t  ^  -  x  ""  ,  whereupon  SUBROUTINE  MATMP 

is  called  to  evaluate  the  expression  g  =  s  g  t  where  ■» 

tt  b  tt 

is  the  component  in  the  s  direction  of  the  gradient  at  the  interpolated 

point.  Then  modifying  g  ,  we  have  3  =  g  -  3  jf  ^is 

value  of  g  <  0,  control  passes  to  statement  335  where  L  is  set  to 

3  and  then  to  DAVD0N  which  calls  in  SUBROUTINE  DRESS.  If  a  >00 

**  1  * 

then  ggs  is  set  equal  to  g^,  l  is  defined  as  -  p*  .  A  is  set 
equal  to  1.0  and  L  =  2  before  the  return  to  DAVD0N  which  then  calls  in 
DRESS. 


5.  Other  Information 

A.  SUBROUTINE  AIM  is  called  by  DAVD0N. 

B.  SUBROUTINE  AIM  calls  in 

1.  SUBROUTINE  FCN 

2.  SUBROUTINE  MATMP 

C.  SUBROUTINE  AIM  calls  in  the  library  functions 

1.  DSQRT 

2.  DABS 


SUBROUTINE  FIRE 


1.  Purpose 

mmm mmmmmmmrnmmmm 

SUBROUTINE  FIRE,  part  of  the  calculations  for  the  Davidon 
minimization  method,  evaluates  f  and  f,  respectively  the  penalty 
function  equation  and  its  gradient  at  the  interpolated  point,  and  determines 
if  the  local  minimum  has  been  sufficiently  well  located.  If  so,  then  the 
rate  of  change  of  gradient  is  evaluated  by  interpolating  from  its  values  at 
the  end  points  of  the  interval  being  considered  and  at  the  interpolated 


2,  Input 


Block  Common 

Name  Symbol  Name 


Source  of 
Input 


A 

a 

BLK0 

AIM 

E 

Ij 

€ 

A 

BLK0 

BLK0 

DAVD0N 

READY, 

AIM,  or  STUFF 

F 

{ 

BLK0 

n  AirnrfiTvT  not'cc 

DAVDWMN  or  DRESS 

FB 

m 

f 

BLK0 

FCN 

FP 

,Y 

i 

BLK0 

READY 

G,  40 

V 

BLK0 

DAVD0N  or  DRESS 

GB,  40 

V 

BLK0 

FCN 

GSB 

*s 

BLK0 

MATMF 

ITERM 

* 

END 

FCN 

N 

* 

BLKI 

DAVD0N 

Q 

Q 

BLK0 

AIM 

S,  40 

8  > 

BLKO 

READY 

T,  40 

t'* 

BLK0 

AIM 
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Mol 

feu,  Hi 


RIB 


the  per^entange  of  A  by  which  the  minimum  in  f  is  expected  to  precede 
the  3C  /**  point 

input  stopping  tolerance  on  the  transformed  gradient 
the  length  of  step  along  s  from  x  "^to  x+'^° 

the  value  of  the  penalty  function  at  the  point  x  ^ 

the  actual  value  of  the  penalty  function  at  the  interpolated  point 

the  value  of  the  penalty  function  at  the  point  x+^ 

the  value  of  the  gradient  of  the  function  at  x 

the  value  of  the  gradient  of  the  function  at  the  interpolated  point 

the  component  in  the  s  direction  of  GB 

error  code 

the  number  of  independent  variables 
see  text  of  AIM 

the  direction  chosen  by  READY  along  which  the  search  for  the 
relative  minimum  is  to  proceed. 

the  step  to  the  optimum  point  inthe  N-l  dimensional  surface 
perpendicular  to  s  'through  x"VM" 


3.  Output 


Name 

Symbol 

Block  Common 
Name 

Description 

EL 

A 

BLK0 

see  input 

FP 

t+ 

BLK0 

see  input 

G,  40 

gM. 

BLK0 

see  input 

GB,  40 

s'ac 

BLK0 

see  input 

GP 

+ 

V 

BLK0 

the  value  of  the  gradient  of  the 
function  at  the  point  x 

GS 

«8 

BLKO 

the  component  in  the  s  direction  of 
the  gradient  of  the  function  at  x  ^ 

GSP 

+ 

g8 

BLK0 

the  component  in  the  s  direction  of 
the  gradient  of  the  function  at  x+  "" 

GSS 

g.B 

BLK0 

the  component  in  the  a  direction  of 
the  quadratically  interpolated  value 
for  the  gradient  at  the  interpolated 
point 

L 

* 

BLK1 

internal  control  code 

M 

* 

BLKI 

an  integer  code  output  to  MATMP  to 
define  the  number  of  columns  in  the 
MATMP  input  matrix  and  the  number 
of  elements  in  the  resulting  vector 

Ml 

* 

BLKI 

the  integer  counter;  which  *  1  for 
first  entry  to  FCN,  *  2  for  subsequent 
entries  up  to  the  final  entry,  and 

3  for  the  final  entry 

N 

* 

BLKI 

see  input 

S,  40 

/A- 

■  ' 

BLK0 

see  input 
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3.  Output  {Concl'd) 


Name 

Symbol 

Block  Common 
Name 

Description 

T,  40 

BLK0 

see  irput 

TO 

t 

o 

BLK0 

(  a  -  ^  ~  a  i 

1  -  a  a 

X,  40 

X 

BLKO 

the  set  of  N  independent  variables 
describing  the  point  from  which 
a  step  is  taken  to  begin  the  search 
for  a  minimum 

* 


4.  Numerical  Procedure 


SUBROUTINE  FIRE  begins  by  setting  the  integer  code  Ml  =  2  and  then 
calls  SUBROUTINE  FCN  to  evaluate  the  penalty  function  and  its  gradient  at 
the  interpolated  point,  FB  and  GB  respectively.  If  the  function  at  the 
interpolated  point  is  defined  and  non-zero,  ITERM  equals  zero  and  control 
passes  to  statement  402.  If  the  function  is  zero  or  undefined,  the  X  array 
is  given  the  value  of  the  T  array. 

Statement  402  sets  integer  M  =  l,  then  SUBROUTINE  MATMP  is 

called  to  multiply  the  components  of  the  gradient  GB  by  the  components 

vector  S  to  obtain  GSB,  the  component  of  the  gradient  GB  in  the  s  direction. 

+ 

The  smaller  value  of  f  and  f  ,  F  and  FP  respectively,  is  defined  as  TP1. 
According  to  statement  405,  should  FB,  f,  be  greater  than  the  sum  of 
TP1  +  €  ,  the  interpolation  is  not  considered  satisfactory,  and  control 
passes  to  statement  418.  At  418,  f  is  tested  against  f+  to  determine  that 
part  of  the  original  interval  for  which  the  function  at  the  end  point  is  smaller, 
then  a  new  interpolation  is  made  within  that  part.  If  ff,  FP,  is  smaller 
than  or  equal  to  f,  F,  control  passes  to  statement  428;  if  f  is  smaller 
than  f  ,  control  passes  to  statement  419. 

Should  FB,  f ,  be  less  than  or  equal  to  the  sum  TP1  +  €  ,  control 
passes  to  statement  406.  There,  in  the  succeeding  statements,  the  equation 

io  a  |  s  (  -  L_!  )  is  evaluated  and  the  t  value  compared  with  Q. 

JI  |tQ|  »  Q,  g-B#  the  component  in  the  s  direction  of  rate  of  change  of  the 

gradient  at  the  interpolated  point  times  A,  is  defined  as  2.  0  *  Q,  since  the 

interpolated  point  is  a  minimum  and  g  =  0,  then  L  is  set  equal  to  1  before 

s 

9 


♦ 


1-117 


returning  to  DAVD0N  which  then  calls  in  SUBROUTINE  DRESS.  If  1 1  |  <  Q, 
we  define 


g 


6  8 


+  2.  OQ 


) 


and  L  -  2  before  returning  to  DAVD0N  which  then  calls  in  SUBROUTINE  DRESS. 


At  statement  419,  the  message  "MOVE  LEFT"  is  written  to  indicate 
that  the  new  interpolation  is  to  be  made  at  a  point  to  the  left  of  the  current 
interpolation  point. 


Shaded  region  is  area  in  which  the  new  interpolation  will  be  made, 

+  quantity  EL,  A  ,  the  length  of  the  step,  is  redefined  as  (i-a)A  • 

f  and  g  e  ,  FP  and  GSP  are  given  respectively  the  values  of  f  and  £ 
FB  and  GSB;  x^.  and  g  XP  and  GP,  are  given  respectively  the  values 
^  8 and  GB;  and  L  is  set  equal  to  3  before  the  return  to 

DAVD0N  which  then  calls  in  SUBROUTINE  AIM  to  find  a  new  interpolated 
point. 
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Similarly,  at  statement  428,  the  message  "MOVE  RIGHT  '  is  written 
to  indicate  that  the  new  interpolation  is  to  be  made  at  a  point  to  the  right 
of  the  current  interpolation  point. 


The  quantity  EL,  \  ,  is  redefined  as  (a  A  );  f  and  g  ,  F  and  GS, 

m  ® 

are  given  respectively  the  values  of  f  and  g  ,  FB  and  GSB;  x  u  and 


£  . 

/ 


X  and  G,  are  given  respectively  the  values  of  t  and  g  (  ,  T 
and  GB;  then  L  is  set  equal  to  3  and  control  returns  to  DAVD0N  which 
calls  in  AIM  to  interpolate  for  the  new  point. 


5.  Other  Information 

A.  SUBROUTINE  FIRE  is  called  by  SUBROUTINE  DAVD0N. 


B,  SUBROUTINE  FIRE  calls  in  SUBROUTINE  FCN  and  SUBROUTINE 
MATMF. 


C.  SUBROUTINE  FIRE  calls  in  IBM  function  DABS. 
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SUBROUTINE  DRESS 


1 ,  Purpose 

SUBROUTINE  DRESS,  part  of  the  calculations  for  the  Davidon 
minimization  technique,  modifies  the  metric  h^  *  on  the  basis  of 
information  obtained  about  the  function  along  the  direction  under  considera¬ 
tion,  s.  The  new  h ^  is  to  have  the  property  that  (h ^  )  g  *  A  s 

8 

and  must  retain  the  information  which  the  preceding  iterations  had  given 
about  the  function. 
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2,  Input 


Block  Common  Source  of 

Name  Symbol  Name  Input  ; 


DELTA 

A 

B  LK0 

MAIN  or  ZEEADX 

the  t 

IT 

•Eli 

€ 

BLK0 

DAVD0N 

inpu 

EL 

X 

BLK0 

READY,  AIM,  or  FIRE 

the  1 

FB 

! 

B  LK0 

READY,  AIM,  or  FIRE 

the  b 

G,  40 

B  LK0 

DAVD0N  or  FIRE 

the  y 

GB,  40 

g 

S- 

BLK0 

READY,  AIM,  or  FIRE 

the  v 

GSS 

8  SB 

B  LK0 

AIM  or  FIRE 

the  c 
for  t 

H,  1600 

BLK0 

DAVD0N  or  DRESS 

the  r 
in  th 

ISEN1 

m 

SENSE 

ZREADX 

a  pri 

IT 

- 

BLKI 

READY,  DAVD0N,  or  DRESS 

iter  a 

L 

• 

BLKI 

READY,  AIM,  or  FIRE 

inter 

N 

BLKI 

DAVDON 

the  t 

S,  40 

BLK0 

MATMP 

the  c 
is  to 

SL 

JL 

BLK0 

READY  or  AIM 

•qua' 

T,  40 

BLK0 

READY  or  AIM 

e  itht 
perp 

T0 

*o 

BLK0 

MATMP 

the  p 

X,  40 

BLK0 

MATMP 

the  i 
step 

iiiiiwtnw|iiii|Wiiiiiwiiiimi 


Description 


the  determinant  of  the  h  ^  *  matrix 


input  stopping  tolerance  on  the  transformed  gradient 

the  length  of  step  along  s  from  x-'^to  x+  *' 

the  actual  value  of  the  penalty  function  at  the  interpolated  point 

the  value  of  the  gradient  of  the  function  at  x 

the  value  of  the  gradient  of  the  function  evaluated  at  the  interpolated  poini; 

the  component  in  the  S  direction  of  the  quadratic  ally  interpolated  value 
for  the  gradient  at  the  interpolated  point 

the  non-negative  symmetric  matrix  which  will  be  used  as  a  metric 
in  the  space  of  the  variables  x-'*'1- 

a  printout  code  which  should  be  set  equal  to  0;  preset  to  0. 

iteration  counter 

internal  control  code 

the  number  of  independent  variables 

the  chosen  direction  along  which  the  search  for  the  relative  minimum 
is  to  proceed 

squared  length  of 

either  the  step  to  the  optimum  point  in  the  N-l  dimensional  surface 
perpendicular  to  through  x^-or  the  interpolated  step  along  s^ 

the  product 

the  set  of  independent  variables  describing  the  point  from  which  a 
step  is  taken  to  begin  the  search  for  a  minimum 


1-121 


3. 


Name 


'0 
X,  40 


Symbol 


o 

x^. 


BIock  common 
Name 


BLKI 

BLK0 

BLK0 


Description 
see  input 

the  penalty  function  evaluated 
at  point  x^*~ 

the  gradient  of  the  penalty 
function  evaluated  at  point  x •''**’ 

see  input 

see  input 

see  input 

an  integer  code  output  to  MATMP 
to  define  the  number  of  columns  in 
MATMP  input  matrix  and  the 
number  of  elements  in  the 
resulting  vector 

see  input 
see  input 

see  input 


mm 


4,  Numerical  Procedure 


Upon  entry  into  SUBROUTINE  DRESS,  the  control  code  L  is  tested 
and  directs  the  flow  of  the  subroutine.  If  L  has  the  value  1#  control  passes 
to  statement  500;  for  a  value  of  2,  to  statement  525;  for  a  value  of  3,  to 
statement  519;  for  a  value  of  4,  to  statement  510. 


Statement  500  calls  SUBROUTINE  MATMP  first  to  evaluate  the 
expression 


M  J4.i> 

x  *  h '  g 


AL 


and  then  to  evaluate  t  *  x^g 


/l 


The  latter  is  used  to  define  TPl 


TP1  *  - 


2 

^  66 


-  £ 


which  is  tested  and  directs  control  to  statement  505,  if  *  0.  0,  or  to 
statement  524,  if  <  0,  0.  Statement  505  begins  a  double  D0  loop 
ending  with  507  which  determines  an  intermediate  value  of  h  from 


<h^W». 


(h^) 


int.  * 

previous  o 

This  is  followed  by  computing  a  new  A  and  a  new  t  from 


A  *  A  X  &  /* 

w  '  ss  o 


A  7 


ss 


before  passing  to  statement  510, 


p 


Statement  524  writes  the  message  "COLINEAR",  then  starting  with 
statement  525  the  following  are  defined 


t 


A  -  A XJ  / 

.  (  A  l 


4s 

i.  o)  /  L 


before  passing  control  to  statement  510. 


Statement  510  is  the  beginning  of  a  double  D®  loop  ending  with  512 
which  computes  the  new  h  A>'  **  matrix 


V  ~ 


int. 


+  t 


t<_ 


SJL>' 


Statement  519,  then  gives  the  new  function  f  at  x  ^  the  value  of  f,  the 
value  of  function  f  at  the  interpolated  point.  Similarly,  g  is  given  the 
value  of  g  and  x  the  value  of  t 

A  test  for  overflow  is  made.  If  an  overflow  exists  control  passes 
to  statement  531,  where  appropriate  error  messages  and  program 'quantities 
are  written  out.  L  is  set  equal  to  Z,  and  control  returns  to  DAVB0M  which 
ends  the  case  by  returning  to  MAIN.  If  no  overflow  exists,  control  passes 
to  statement  513  where  appropriate  output  messages  are  written,  the 
iteration  counter,  IT,  Is  then  increased  by  1,  and  L  is  set  to  1  before 
control  returns  to  DAVD0M,  where  L  is  reset  to  1  and  the  iteration 
continues  with  the  calling  of  SUBROUTINE  READY. 
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5.  Other  Information 


li'Mil  ll<  ill  II 


i 


.1 


A.  SUBROUTINE  DRESS  is  called  by  DAVDON 

B.  SUBROUTINE  DRESS  calls  in  SUBROUTINE  MATMP. 

C.  SUBROUTINE  DRESS  calls  in  the  library  routines 

1.  OVERFL 

2.  FDXP1 
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SUBROUTINE  STUFF 


1. 


Purpoae 


SUBROUTINE  STUFF,  part  of  the  Davidon  minimization  method, 

tests  how  well  the  function  has  been  minimized  and  how  well  the  matrix 

■  2  ,  -1 

|  at  the  minimum.  This  is  done 


h  approximates  || 


V  A*  X> 
dx  o  x 

by  displacing  the  point  x  from  the  location  of  the  minimum  in  a  random 
direction.  The  displacement  of  point  x  is  chosen  to  be  a  unit  length  in 

, .  v,  i  2  f  .  l 

terms  of  h  ^  as  a  metric.  When  h  *  II  R  ,  such 

v  M' s  V 
dx  Ox 

a  step  will  Increase  f  by  half  the  square  of  the  step  length. 


2.  Input 

Vindicates  integer  quantity 

Common  Source  of 


Symbol 

Block 

Input 

Description 

GS 

BLK0 

READY 

the  component  in  the  S  direction 
of  g  -*• 

H, 1600 

BLK0 

DAVD0N 
or  DRESS 

the  non-negative  symmetric 
matrix  which  will  be  used  as 
a  matrix  in  the  space  of  the 
variable  x 

K 

-  # 

BLKI 

MAIN 

random  step  control 

MS 

m  t 

BLKI 

DAVD0N 
or  STUFF 

integer  counter  for  the  number 
of  random  steps 

N 

m  *1* 

BLKI 

DAVD0N 

number  of  independent 
variables 
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2.  Input  (Concl'd) 
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Common 

Source  of 

Name 

Symbol 

Block 

Input 

P 

- 

BLK0 

MAIN  multiplier  used  in  finding  EL 

■ 

S,  40 

8^ 

BLK0 

MATMP  or  the  random  direction  or  the 

READY  direction  chosen  by  READY 

i 

for  the  search  for  minimum 

TP1 

“ 

BLK0 

MATMP  the  product  s^t^ 

X,  40 

x>° 

BLK0 

MAIN,  the  set  of  N  independent 

DRESS,  variables  describing  the  point 

READY  from  which  a  step  is  taken  to 

begin  the  search  for  a  minimum 

3.  Output 

^indicates  integer  quantity 

X 

Common 

Name 

Symbol 

Block 

EL 

A 

BLK0 

the  length  pf  step  along  S  from 
x  to 

■!  '  j  1i ' 

H, 1600 

V** 

BLK0 

the  non-negative  symmetric  matrix 
which  will  be  used  as  a  metric  in 
the  space  of  the  variables  x*^* 

||' 

K 

m  * 

BLKI 

random  step  control 

L 

-  lit 

BLKI 

internal  control  code 

i!1  ’i'!’ !|,,M 

!  ill!'. 

M 

.  * 

BLKI 

an  integer  code  output  to  MATMP 
to  define  the  number  of  columns  in 

fl- 

the  matrix  input  to  MATMP  and  the 

number  of  elements  in  the  resulting 

vector 

illl  1 

3.  Output  (Concl'd) 

Common 

Name 

Symbol 

Block 

Description 

Ml 

.  * 

BLKI 

the  integer  control  code  which  is  =  1 
for  the  first  entry  to  FCN;  =  2  for 
all  subsequent  entries  up  to  the  final 
entry;  =  3  for  the  final  entry 

MS 

.  $ 

BLKI 

the  integer  counter  for  the  number 
of  random  steps 

N 

-  * 

BLKT 

number  of  independent  variables 

S,  40 

8^ 

BLK0 

.  .  .  J  iJ  » 

the  product  of  h  t 

T,  40 

t  A 

BLK0 

the  step  in  random  direction 

X,  40 

X  ' 

BLK0 

new  initial  point  described  by  N 
variables  from  which  search  for 
minimum  will  be  initiated 

SUBROUTINE  STUFF  redefines  K,  the  number  of  random  steps  to 
be  taken,  as  K-l,  then  tests  this  quantity.  If  K  is  negative  control  passes 
to  statement  617;  if  K  is  zero  or  positive, which  indicates  that  the  specified 
number  of  random  steps  to  be  taken  has  not  been  reached,  control  passes 
to  statement  602. 

In  statement  617,  since  the  specified  number  of  random  steps  has 
been  taken,  the  control  code  L  is  set  equal  to  2,  then  MS  is  set  to  zero 
before  control  is  returned  to  DAVD0N  which  calls  in  FCN  to  determine 

M, 

the  final  values  of  f  and  g  . 


In  statement  602  MS  is  increased  by  1,  then  the  values  MS  and 
GS  are  written  out.  A  D0  loop  then  defines  the  N  values  of  t  -/U‘as  the 
function  RANDOM  -  0,  5.  SUBROUTINE  MATMP.is  call  in  first  to  evaluate 
the  expression  s-^=  h^t  V  and  then  to  define  TP  1  =  s'^S  \ 


and  used  in  the  expression 
The  N  values  of  x  are 


The  quantity  TP1  is  redefined  as 
for  A ,  EL,  which  is  A  =  7== 


/7*r?P‘ 


computer  from  the  expression 

XA'  _  x  >t*+  \ 


after  which  Ml  is  set  to  2  and  L  to  1  before  control  returns  to  DAVD0N 
where  the  iteration  continues. 


A.  SUBROUTINE  STUFF  is  usually  used  to  trigger  the  Shut  down 
of  the  optimization  technique  by  setting  the  program  input  IRAND  {which 
becomes  K)  to  zero. 


B.  SUBROUTINE  STUFF  is  called  by  SUBROUTINE  DAVD0N. 

C.  SUBROUTINE  STUFF  calls  in  SUBROUTINE  MATMP  and 
FUNCTION  RANDOM  (which  is  not  being  used) 

D.  SUBROUTINE  STUFF  calls  in  the  library  function  DSQRT. 
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FUNCTION  RANDpM(X) 


I.  Purpose 


At  present,  this  is  a  dummy  function  which  merely  sets  RANDOM 
equal  to  the  input  argument  X.  It  may  be  implemented  later  to  actually 
calculate  a  random  number. 


2.  Input 
Name 


Source  of  Input 
STUFF 


Description 
dummy  argument 


3.  Output 


Name 


Description 


RANDOM 


dummy  variable 


4.  Numerical  Procedure 

FUNCTION  RANDOM  sets  RANDOM  equal  to  the  dummy  input  variable 
X  and  returns  control  to  SUBROUTINE  MISC,  This  function  may  be  implemented 


later  to  actually  calculate  a  random  number. 


5*  Other  Information 


A.  SUBROUTINE  RANDOM  is  called  by  SUBROUTINE  STUFF  only. 

B.  SUBROUTINE  RANDOM  does  not  call  or  reference  any  other 


subprograms. 
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SUBROUTINE  MATMF( M,  N.  H.  G.  S) 


1.  Purpose 

The  vector  G  is  multiplied  on  the  left  by  the  matrix  H  to  produce 
a  new  vector  S. 


2.  Input 

Name 

M 

N 


G 

H 


Source 

calling  program 

calling  program 

calling  program 
calling  program 


Description 

number  of  columns  in  matrix  H  and 
number  of  elements  in  vectors 

number  of  rows  in  matrix  H  and 
number  of  elements  in  vector  G 

vector  with  N  elements 

matrix  with  N  rows  and  M  columns 


3«  Output 

Name  Description 

8  Vector  product  of  matrix  H  times  vector  G 


4.  Numerical  Procedure 


The  nth  element  of  the  product  vector  S  is  produced  by  scalar 
multiplication  of  the  nth  column  of  matrix  H  by  the  vector  G. 


5.  Other  Information 


A.  SUBROUTINE  MATMP  is  called  by  each  of  the  six  subroutines: 

AIM 

DAVD0N 

DRESS 

FIRE 

READY 

STUFF 

B,  SUBROUTINE  MATMP  does  not  call  or  reference  any  other 
subprogram. 


?„  3.  2  Roaenbrock  Method 


The  following  section  contains  the  subroutines  ROSBRK  and  GRAM  for 
the  Roaenbrock  Rotating  Coordinate  Minimization  Technique,  the  most 
powerful  of  the  multidimensional  direct  search  techniques. 

The  technique  first  searches  for  an  approximate  local  minimum  along 
a  direction  parallel  to  the  first  design  variable  axis.  After  a  set  of 
trials  has  been  completed  in  one  direction  and  an  approximate  local 
minimum  has  been  established,  the  program  searches  from  that  point 
along  the  next  orthogonal  direction.  This  process  is  continued  until 
all  N  directions  have  been  treated.  A  new  set  of  directions  is  then 
calculated  by  SUBROUTINE  GRAM.  All  of  the  trials  along  the  N  dir¬ 
ections  and  the  subsequent  calculation  of  a  new  set  of  directions  is 
called  a  'fetage. " 
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SUBROUTINE  RQSBRK 


1.  Purpose 

SUBROUTINE  ROSBRK  is  intended  to  minimize  a  function 


U(P1‘P2" 

•  •  •  PNMAX>  where  the  P's  are 

adjustable  design  parameters. 

2.  Input 

^indicates  integer  quantity 

Name 

Common 

Location 

Source  of 
Input 

Description 

ALPHA 

XC0M{1) 

ZREADX 

multiplier  used  to  obtain  new  step 
size  from  previous  etep  size  for  a 
successful  stepj  preset  to  3. 0 

BETA 

XCOMU) 

ZREADX 

multiplier  whose  negative  is  used 
to  obtain  new  step  size  from  previous 
step  Bize  after  an  unsuccessful 
step,  preset  to  0. 5 

C,  400 

BLK0 

GRAM 

matrix  used  in  defining  new 
coordinate  system 

DEL 

XC0M(4) 

ZREADX 

multiplier  used  in  obtaining  ULIM, 
the  limiting  value  of  the  function  U; 
preset  to  0. 01 

EO.  20 

D0PT 

ZREADX 

initial  step  sizes  in  units  of 
corresponding  parameters 

GAMMA 

XC0MU) 

ZREADX 

multiplier  used  to  redefine  step 
size  after  a  failure;  preset  to  0. 5 
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2-  InPut  (Concl'd) 


Common 

Source  of 

Name 

Location 

Input 

Description 

ITERM* 

END 

FEV 

integer  code;  a  value  of  -1  indicate* 
that  U  i»  zero,  l  that  U  is  undefined, 
and  0  that  U  is  defined  and  non- zero; 
preset  to  1, 

LIMIT* 

J10PT 

ZREADX 

the  maximum  number  of  time*  that 
a  parameter  can  be  changed 
successively;  preset  to  30. 

MMAX* 

I0PT 

ZREADX 

the  number  of  parameters  (design 
variables)  of  which  U  is  a  function; 

P,  40 

BLK0 

preset  to  1 

MAIN 

independent  variables 

RATU 

XC0M(5) 

ZREADX 

input  tolerance  on  quantity  PRAT, 
see  text;  preset  to  0. 5 

T0L 

XC0NK6) 

ZREADX 

input  accuracy  test  parameter; 
preset  to  .  0001 

U 

m 

FEV 

the  function  of  P's  being  minimized 

3*  Safei 

Common 

Name 

Location 

C,  400 

BLK0 

unit  matrix  defined  in  R0SBRK 

D,  40 

BLK0 

array  of  the  change  from  the  initial  value 
of  each  variable  neceesary  to  reach  variable 
value  for  m.’iimum  in  U 

P,  40 

BLK0 

array  of  design  variable  value*  which  define 

minimum  in  (I 
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4.  Numerical  Procedures 


IT  is  a  function  of  the  parameters  P. ,  P,, ...»  P„. ,  Initial 

r  12  NMAX 

values  for  these  P's  are  received  through  the  BLK0  common  block.  A 
vector  EO  of  initial  step  sizes  is  received  through  the  D0PT  common  block. 


The  elements  of  a  vector  E  are  set  equal  to  the  corresponding  elements 
of  the  EO  vector.  This  is  necessary  because  the  values  of  the  E's  may  be 
changed  by  R0SBRK  in  the  minimization  process  and  the  EO  vector  may  be 
needed  as  input  to  the  next  case. 


R.0SBRK  tries  to  minimize  the  value  of  U  by  varying  the  P's  one 
at  a  time  and  .applying  test  criteria  to  the  successive  values  of  it,.  'The 
value  of  U  for  a  given  set  of  P's  is  calculated  by  the  function  evaluator  FEY, 
Each  time  FEY  is  called  the  variable  ITERM,  received  from  FEY  through 
the  I0PT  common  block,  is  tested.  If  fTERM  equals  -I,  U=  0,  and  the 
minimization  is  complete  since  we  know  that  U  is  always  greater  than  or 
equal  to  zero.  If  ITERM  equals  1,  FEY  has  been  unable  to  define  'll,  and 
the  case  is  a  failure.  In  either  case,  control  is  returned  to  the  main 
program.  If  ITERM  equals  zero,  NTRIA,  the  number  of  times  the  same 
parameter  has  been  changed  successively,  is  tested.  If  NTRIA  is  greater 
than  the  input  quantity  LIMIT,  the  case  is  considered  a  failure  and  control 
is  returned  to  the  main  program. 

The  general  procedure  is  as  follows.  As  a  first  step,  FEV  is 
called  to  obtain  an  initial  value  of  U.  If  U  is  not  zero,  its  value  is  saved 
as  ULAST  and  the  value  of  the  first  parameter  is  increased  by  the  value 
of  the  first  step  size  E.,  FEV  is  called  again  to  compute  a  new  value  of 


If  the  difference  between  the  new  U  and  the  previous  U,  U-ULAST, 
is  less  than  or  equal  to  an  input  test  parameter,  T0L,  times  ULAST 
the  trial  is  called  a  success  and  control  passes  to  109.  If  not,  the  trial  is 
a  failure  and  control  passes  to  110.  If  the  trial  is  successful,  the  step 
size  Ej  is  multiplied  by  ALPHA  to  increase  its  value..  The  latest  value 
of  Pj  is  'then  increased  by  the  product  of  the  new  E^  and  the  unit  matrix  C, 
then  FEV  is  called  again.  If  the  trial  is  a  failure,  the  value  of  E^  is 
multiplied  by  minus  BETA,  the  value  of  P^  is  increased  by  the  product  of 
the  new  Ej  and  the  unit  matrix  C,  and  FEV  is  called  again. 

.If  each  of  twenty  successive  trials  with  different  values  of  the  same 
parameter  result  in  success,  the  advance  criterion  is  sa?  i  to  he  satisfied. 
.Also,  if  a  success  if  followed  by  a  failure,  the  advance  criterion  Is 
..satisfied.  Whenever  'the  advance  criterion  is  satisfied,  EtfKBEK  stops 
changing  'the  parameter  it  .has  been  using  and  starts  to  change  'the' "next 
parameter.  .If  the  criterion  has  been  satisfied  for  each  of  'the  NMAX 
parameters,  'the  end  of  a  stage  has  been  reached.  At  the  end  off  'the 
second  .and  subsequent  stages,  stopping  criteria  are  applied,.  If  these 
are  all  satisfied,  the  entire  case  :3s  called  a  success  and  ceniMl  is 
returned  to  'the  main  program.  If  any  one  of  these  criteria  is  not  satisfied, 
EOSBEK  starts  the  whole  procedure  over  again  by  varying  the  first 
parameter. 

When  statement  115  has  been  reached.  UPEEV,  USTAG  .and  'ULAST 
are  the  values  of  U  at  'the  ends  of  three  successive  stages.  UPEEV  Is  for 
the  first  of  the  three  stages  completed.  USTAG  .is  for  'the  second*  and 
ULAST  is  fbr  'the  .latest.  "The  following  requirements  must  all  he  satisfied 
if  the  latest  value  of  II  is  to  be  accepted  as  a  satisfactory  minimum. 


UPREV  must  not  equal  USTAG  because  URAT  which  equals  (USTAG-ULAST)  / 
(UPREV-USTAG)  cannot  be  defined.  ULAST  and  USTAG  must  both  be 
greater  than  ULIM  where  ULIM  is  defined  as  UPREV-DEL*UPREV. 

Finally,  URAT  must  be  less  than  or  equal  to  the  input  tolerance  RATU. 

At  statement  121,  the  value  of  USTAG  is  saved  as  UPREV  and 
statement  116  is  reached.  At  statement  116,  ULAST  is  saved  as  USTAG. 
NSTAG,  the  number  of  stages,  is  then  increased  by  one  end  GRAM  is 
called  to  define  a  new  set  of  coordinates.  The  C  matrix,  containing  these 
coordinates  as  rows,  is  printed.  Then  NSUCC  is  set  to  zero,  D  is  set  to 
zero  and  statement  108  is  reached  to  prepare  for  a  new  stage.  At  108, 
printed  output  is  produced  before  statement  125  is  reached.  At  125,  new 
DP's  are  defined  and  these  are  used  to  redefine  the  P's  .  Then  printed 
output  is  produced  and  control  is  returned  to  statement  123  for  a  new  trial. 

5*  Other  Information 

A,  SUBROUTINE  R0SBRK  is  called  by  the  main  program  only. 

B.  SUBROUTINE  R0SBRK  calls  subroutines  GRAM  andFEV. 


i„  NOT  REPRODUCIBLE 


Hi  iil/.  O 
H S ;  /•.  :*  0 
3’Vln  )'•:! 


» i.v  (wi-wu  f;  | 

If 

_ yi.&  !  iio 


. \  .. 

tt>  1  l  -  W--  v  C> 

N'f  I  y'.T 

. T  "  ’  •  *' 


1 1  VioL 

"wn  . 1  ■  'ihao 

lh : ; r  w  j  ;  .■  x.K" 


■■■  u 

'  U 

l  i  T;.\'*  H 

i-i-v'C  >  o 

t  1 


.  ■  n- 

i  * 

[To  /V;  :  ,‘,.i  Tv;  is  tool 

[  nvhuv  ;  ‘v  r  1 1 

n'T~<V/'v.f.r.  '(TTT'T  ’! 


•■'•t  n:.  |M,nv  *)L  .  b-b  I  vv  bT-  I 

ft  V‘ ■  *!-  * — * — 

■Jri«lu[y- », rarTc V •  .  I  ["Tu-p/mTu  •; 


Ktuct. « vv.-v  -  •;  i 

r ;  t! 

“IWk!  >'•/».  <Tol 


p}  ifv-viifv.  it-- 

...  H 

TV;1  iTjv ' 

ws  T 


ts  K 

ta 

wo’ 

hi  a  N  +  l 


NSUCC-P 


fchW  *  C(^vrjft^) 

X  *-  t.  U  X-W'k 

•*"»»"  «“  **"»»«■«—>■  IW»>HII  lU  »l  ■<■»!>  I IX. 

|#»l  •  M*l*  I  <*►!•  * S*i-  -l-  »’  «<  *!*«*«*«•#« 

P(X)  =  DfV.)  *  U‘.) 
»  I.TKi.v 


SUBROUTINE  GRAM 


1.  Purpose 

Given  a  matrix  C  and  a  column  vector  D,  SUBROUTINE  GRAM 
defines  a  set  of  vectors,  A,  which  are  used  to  calculate  an  orthogonal 
set  of  vectors,  B,  to  be  used  as  the  row  vectors  of  a  matrix  BB.  The 
input  matrix  C  is  then  redefined  as  the  inverse  (transpose)  of  matrix 
BB, 


2.  Input 


Vindicates  integer  quantity 
Common 

Name  Block 

Source  of 

Input 

Description 

C.400 

BLK0 

R0SBRK 

orthonormal  matrix 

D,  20 

BLK0 

R0SBRK 

vector  of  distances 

NMAX* 

I0PT 

ZREADX 

number  of  adjustable  parameters 

3.  Output 

Name 

Common 

. 

Description 

C,  400  BLK0  redefined  C  matrix 


4*  Numerical  Procedure 


1 

If  if'i 

r.'S 


Given  a  matrix  C,  of  order  NMAX,  and  a  vector  D,  of  length 
NMAX,  a  set  of  NMAX  vectors,  A,  each  of  length  NMAX,  is  defined 
using  C  and  D.  Then  a  new  set  of  orthonormal  vectors  is  produced 
from  these  A  vectors  using  the  Gram-Schmidt  equations  to  transform 
the  A's.  Finally,  the  matrix  C  is  redefined  as  the  inverse  (transpose) 
of  this  orthonormal  matrix. 


The  Gram-Schmidt  equations  are  as  follows: 


1.  Ui  a  Bi/  (norm  of  Bi) 


2.  B,.A 


3.  BJ+  ,  ■  AJ+ 


1 

KM 


(Bk  dot  Aj  +  j)  x  B 


The  quantity  in  parentheses  is  the  scalar  product  of  the  Kth  B  vector  and 
the  (I  +  1)  A  vector. 

At  a  preliminary  step,  the  elements  of  the  A  vector,  the  B  vector 
and  the  BB  matrix  are  all  set  equal  to  zero. 

Next,  the  DQ  loop  ending  at  102  is  entered  to  define  the  row  vectors 
of  the  BB  matrix.  First,  the  A  vector  must  be  defined.  This  is  done 
in  the  m  loop  ending  at  101.  The  Kth  element  of  the  first  A  vector  is 
the  scalar  product  of  Kth  row  vector  of  the  C  matrix  with  the  column 
vector  D.  When  I  is  greater  than  1,  a  diminished  C  matrix  and  a 
diminished  D  vector  are  used.  The  first  1-1  columns  of  the  C  matrix 
are  ignored,  leaving  a  matrix  with  NMAX  rows  but  only  (NMAX  -  (1+1)) 
columns.  Similarly,  the  first  1*1  elements  of  the  D  vector  are  ignored. 
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Now,  the  Kth  element  of  the  Ith  A  vector  is  the  scalar  product  of  the 
Kth  row  of  the  diminished  C  matrix  and  the  diminished  D  vector. 

After  the  A  vector  has  been  completely  defined,  the  statement 
following  101  is  reached  and  I  is  tested.  If  I  equals  1,  statement  111 
is  executed  next.  If  I  isgreater  than  1,  statement  112  is  executed  next. 

At  111,  the  Lth  element  of  the  first  B  vector  is  set  equal  to  the 
Lth  element  of  the  first  A  vector  as  required  by  the  second  of  the  Gram- 
Schmidt  equations.  Control  then  passes  to  statment  102. 

The  sequence  of  statements  beginning  at  112  and  ending  at  103 
define  the  Lth  element  of  the  Ith  B  vector  as  required  by  the  third  of 
the  Gram-Schmidt  equations. 

After  the  Ith  B  vector  has  been  completely  defined,  the  five  statements 
following  102  define  BMAGS  as  the  norm  of  this  B  vector.  Then  the 
immediately  following  DO  loop  is  executed  NMAX  time*  to  define  the  lth 
row  of  the  BB  matrix  as  required  by  the  first  of  the  Gram-Schmldt  equations. 

Finally,  when  the  BB  matrix  has  been  completely  defined,  the  D0 
loop  ending  at  108  is  used  to  redefine  the  C  matrix  as  the  inverse  (transpose) 
of  the  orthonormal  BB  matrix.  Then  control  returns  to  SUBROUTINE 
R0SBRK. 


A.  SUBROUTINE  GRAM  is  called  by  SUBROUTINE  R0SBRK. 

B,  SUBROUTINE  GRAM  calls  no  other  subprograms. 


2.3.3 


One  Variable  Fibonacci  Search 


The  subroutine  MIMAX  and  the  function  F  MI  MAX,  described 
in  the  following  section,  are  utilized  in  the  one  variable  Fi¬ 
bonacci  search.  SUBROUTINE  MIMAX  controls  the  search 
for  the  minimum  and  calls  in  FUNCTION  FMIMAX  at  each 
point  in  the  search  to  evaluate  the  function  being  optimized. 


SUBROUTINE  MIMAX  ( AA,  BB,  NF,  NMIMAX,  ACCUR, 

NFUNC,  XMIMAX,  YMIMAX) 


1.  Purpose 


SUBROUTINE  MIMAX  utilizes  a  Fibonacci  search  technique  to 
find  the  maximum  or  minimum  of  a  one  variable  unimodal  function 
within  a  defined  region  (AA,  BB). 


2.  Input 

’’■‘indicates  an  integer  quantity 


Name 

Common 

Location 

Source  of 
Input 

Description 

AA 

- 

MAIN  or 
GMIMAX 

one  boundary  of  the  defined 
region  within  which  search 
will  take  place 

ACCUR 

* 

MAIN  or 
GMIMAX 

desired  accuracy 

BB 

- 

.  MAIN  or 
GMIMAX 

one  boundary  of  the  defined 
region  within  which  search  will 
take  place 

F  MIMAX 

F  MI  MAX 

the  value  of  the  function  being 
optimized  at  the  current 
evaluation  point  within  the  search 
interval 

TTtTD  KX 

END  * 

FEV 

integer  code;  non-zero  value 
indicates  a  zero  or  undefined 
penalty  function;  zero  value 
indicate*  a  non-zero  defined 
function 

NF 

* 

MAIN  or 
GMIMAX 

code  number  of  the  function 
to  oo  optimized 

1-145 


2.  Input  (Concl'd) 


Name 

Common 

Location 

Source  of 
Input 

Description 

NFUNC 

* 

MAIN  or 
GMIMAX 

the  number  of  values  of  the 
function  to  be  utilized  in  the 
optimization 

NMIMAX 

.  >Jc 

MAIN  or 
GMIMAX 

integer  code;  value  of  +  1  calls 
for  maximizing  calculation; 
value  of  -1  calls  for  minimization 

3.  Output 

Name 

Description 

NF  ’X 


See  Input 


ft! 


the  smaller  of  the  two  evaluation  points  within 
the  current  Bearch  interval  (A,  B) 


XMIMAX 


the  optimum  value  of  the  independent  variable 


XR 


the  larger  of  the  two  evaluation  points  within 
the  current  search  interval  (A,  B) 

the  value  of  the  function  corresponding  to  the 
XMIMAX  value  of  the  independent  variable 
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4.  Numerical  Procedure 


The  Fibonacci  search  technique  is  an  optimal  sequential  search 
scheme  for  finding  the  maximum  or  minimum  of  a  one  variable  unimodal 
function  within  a  defined  region  (AA,  BB).  The  code  JMIMAX  is  set  to  1 
for  a  minimum  and  to  2  for  a  maximum.  The  quantity  AA  may  be  the 
lower  bound  of  the  region  and  BB  the  upper  bound  or  vice  versa.  If  AA 
is  input  as  equal  to  BB,  an  error  of  type  1  exists  and  control  returns  to 
calling  program.  The  initial  intr  *val  R  is  defined  from  the  upper  bound, 
B,  and  the  lower  bound,  A,  as  R  =  B-A  in  statement  23. 

Either  the  number  of  function  evaluations,  NFUNC,  to  be  made 
during  the  search  or  an  end  of  search  accuracy  limit  ACCUR,  defined  in 
terms  of  a  number  of  independent  variable  units  away  from  the  actual 
maximum  or  minimum  has  to  be  given.  If  NFUNC  is  provided, control 
passes  to  statement  35  where  the  appropriate  trial  Fibonacci  number, 
R0ACC,  is  defined  before  passing  to  45.  If  instead  ACCUR  has  been 
given,  then  NFUNC  is  zero,  control  passes  to  statement  40  where 
R0ACC,  the  trial  Fibonacci  number,  is  defined  as  R/ACC  before  control 
passes  to  45.  If  NFUNC  is  negative  and  ACCUR  is  negative  or  zero,  an 
error  of  type  2  exists  and  control  returns  to  the  calling  program. 


At  statement  45,  if  R0ACC  is  less  than  or  equal  to  2,  control  passes 
to  50  where  X  MI  MAX  is  set  equal  to  the  midpoint  of  the  interval  (A,  B) 
and  Y  MI  MAX  evaluated  for  this  value  before  the  return  to  the  calling 
program.  If  R0ACC  is  greater  than  2,  control  passes  to  statement  51, 
where  it  is  further  directed  to  either  statement  60  if  R0ACC  3  or 
statement  6 1  if  R0ACC  >  3. 
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Statement  60  begins  a  sequence  of  calculations  where  two  evaluation 
points  within  the  interval  (A,  B)  are  redefined.  The  left  hand  value  of  the 
independent  variable,  XL,  is  located  one-third  of  the  distance  between 
A  and  B;  the  right  hand  value,  XR,  is  located  two-thirds  of  the  distance 
between  A  and  B.  The  Function  F  MI  MAX  is  utilized  to  define  YL,  the 
function  being  optimized  evaluated  at  point  XL.  If  ITERM  is  non- zero, 
control  then  passes  to  160;  otherwise,  F  MI  MAX  is  used  to  define  YR  at 
point  XR.  If  ITERM  now  has  a  non-zero  value,  control  passes  to 
statement  150.  If  not,  the  difference,  YL-YR,  is  tested.  If  this  difference 
is  zero  or  negative,  XMIMAX  is  set  equal  to  XR  and  Y MI  MAX  to  YR  before 
the  return  to  the  calling  subroutine.  If  this  difference  is  positive,  XMIMAX 
is  set  equal  to  XL  and  YMIMAX  to  YL  before  the  RETURN  is  executed. 


Statement  61  begins  the  calculation  of  the  actual  Fibonacci  number 
which  is  obtained  through  an  iteration  process  where 


The  iteration  process  is  continued  until  the  first  K  is  found  where  E  > 
R0ACC  or  until  K  reaches  the  maximum  of  40.  If  K  reaches  40 
before  ER  >  R0ACC,  then  control  passes  to  76  where  the  message 
"ERROR  OF  TYPE  3"  is  printed  out  before  the  return  to  the  calling 
program.  Otherwise,  N  is  set  equal  to  the  value  of  K  for  which  E  first 
becomes  greater  than  or  equal  to  ROACC  in  statement  80.  Then  the 
two  evaluation  points  in  the  first  interval  are  located  as  follows 
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4.  Numerical  Procedure 


The  Fibonacci  search  technique  is  an  optimal  sequential  search 
scheme  for  finding  the  maximum  or  minimum  of  a  one  variable  unimodal 
function  within  a  defined  region  (AA,  BB).  The  code  JM1MAX  is  set  to  1 
for  a  minimum  and  to  2  for  a  maximum.  The  quantity  AA  may  be  the 
lower  oound  of  the  region  and  BB  the  upper  bound  or  vice  versa.  If  AA 
is  input  as  equal  to  BB,  an  error  of  type  1  exists  and  control  returns  to 
calling  program.  The  initial  interval  R  is  defined  from  the  upper  bound, 
B,  and  the  lower  bound,  A,  as  R  =  B-A  in  statement  23. 

Either  the  number  of  function  evaluations,  NFUNC,  to  be  made 
during  the  search  or  an  end  of  search  accuracy  limit  ACCUR,  defined  in 
terms  of  a  number  of  independent  variable  units  away  from  the  actual 
maximum  or  minimum  has  to  be  given.  If  NFUNC  is  provided* control 
passes  to  statement  35  where  the  appropriate  trial  Fibonacci  number, 
R0ACC,  is  defined  before  passing  to  45.  If  instead  ACCUR  ha#  been 
given,  then  NFUNC  is  zero,  control  passes  to  statement  40  where 
R0ACC,  the  trial  Fibonacci  number,  is  defined  as  R/ACC  before  control 
passes  to  45.  If  NFUNC  is  negative  and  ACCUR  is  negative  or  zero,  an 
error  of  type  2  exists  and  control  returns  to  the  calling  program. 

At  statement  45,  if  R0ACC  is  leas  than  or  equal  to  2,  control  passes 
to  50  where  XMIMAX  is  set  equal  to  the  midpoint  of  the  interval  (A,  B) 
and  YMIMAX  evaluated  for  this  value  before  the  return  to  the  calling 
program.  If  R0ACC  is  greater  than  2,  control  passes  to  statement  II, 
where  it  is  further  directed  to  either  statement  60  if  R0ACC  %  %  or 
statement  61  if  ROACC  >  3, 


Statement  60  begins  a  sequence  of  calculations  where  two  evaluation 
points  within  the  interval  (A,  B)  are  redefined.  The  left  hand  value  of  the 
independent  variable,  XL,  is  located  one -third  of  the  distance  between 
A  and  B;  the  right  hand  value,  XR,  is  located  two-thirds  of  the  distance 
between  A  and  B.  The  Function  FMIMAX  is  utilized  to  define  YL,  the 
function  being  optimized  evaluated  at  point  XL.  If  ITERM  is  non- zero, 
control  then  passes  to  160;  otherwise,  FMIMAX  is  used  to  define  YR  at 
point  XR,  If  ITERM  now  has  a  non-zero  value,  control  passes  to 
statement  150.  If  not,  the  difference,  YL-YR,  is  tested.  If  this  difference 
is  zero  or  negative,  XMIMAX  is  set  equal  to  XR  and  Y  MI  MAX  to  YR  before 
the  return  to  the  calling  subroutine.  If  this  difference  is  positive,  XMIMAX 
is  set  equal  to  XL  and  YMIMAX  to  YL  before  the  RETURN  is  executed. 

Statement  61  begins  the  calculation  of  the  actual  Fibonacci  number 
which  is  obtained  through  an  iteration  process  where 


e2=  1 

EK  *  EK.l  +  EK~2  K=3,4,5.... 

The  iteration  process  is  continued  until  the  first  K  is  found  where  E  > 
R£)ACC  or  until  K  reaches  the  maximum  of  40.  If  K  reaches  40 
before  EK  >  R0ACC,  then  control  passes  to  76  where  the  message 
"ERROR  OF  TYPE  3"  is  printed  out  before  the  return  to  the  calling 
program.  Otherwise,  N  is  set  equal  to  the  value  of  K  for  which  E  first 
becomes  greats-  than  or  equal  to  R0ACC  in  statement  80.  Then  the 
two  evaluation  points  in  the  first  interval  are  located  as  follows 


The  corresponding  functional  value  XL  is  then  computed  using  F  MI  MAX, 
If  ITERM  t  0,  control  passes  to  statement  160;  if  ITERM  =  0,  the 
functional  value  YR  is  determined  from  FMIMAX.  The  code  ITERM  is 
again  tested  and  control  sent  to  statement  150  if  ITERM  #  0.  If 
ITERM  =0,  calculations  proceed  and  the  index  J  is  set  equal  to  1, 
Statement  90  begins  the  definitions  of  the  following  indices: 


NJ  -  N-J 
NJjDNE  =  N-J- 1 
NJTW0  =  N-J-2 

The  code  JMIMAX  is  tested  and  control  passes  to  statement  100  for  a 
minimum  search  or  to  statement  101  for  a  maximum  search. 

Statement  100  tests  the  difference  YR- YL  and  sends  control  either 
to  statement  130  if  the  difference  is  zero  or  negative  or  tb  statement  110 
if  the  difference  is  positive.  Statement  100  performs  the  same  test 
but  sends  control  to  statement  110  for  a  zero  or  negative  difference  or 
to  130  for  a  positive  difference.  Statements  110  and  130  both  test 
the  quantity  J  -  N  +  3,  where  N-2  is  the  total  number  of  function  evaluations 
to  be  made.  Statement  110  sends  control  either  to  statement  160  for 
a  positive  or  zero  value  or  to  statement  120  for  a  negative  value. 

Likewise,  statement  130  sends  control  to  statement  140  for  a  negative 
value  or  to  statement  150  for  a  zero  or  positive  value. 


Statement  120  defines  the  point  XR  to  be  the  new  end  point  of  B 
of  the  search  interval.  The  new  interval  R=  B-A  is  defined,  then  the 
new  XR  is  set  equal  to  XL  before  a  new  value  of  XL  is  defined  from  the 
relation 


E(NJTW0)  r 
E(NJ) 


The  new  corresponding  functional  values  are  then  determined:  YR  is 
set  equal  to  YL,  then  the  new  YL  is  defined  by  employing  FUNCTION 
FMIMAX.  The  code  ITERM  is  tested  and  control  sent  to  statement  160 
for  a  non-zero  value  or  to  statement  125  for  a  zero  value.  Statement  125 
increases  the  index  J  by  1  and  sends  control  back  to  statement  90  and  the 
process  of  recalculating  the  interval  and  the  evaluation  point  continues 
until  the  appropriate  number  of  function  evaluations  have  been  made;  i.  e. , 
J-N+3  reaches  zero. 


A  similar  process  is  employed  following  statement  140.  The  interval 
bound  A  is  redefined  as  XL,  a  new  R  *  B  -  A  is  calculated,  the  new  XL 
is  defined  as  XR,  XR  is  redefined  as 


XR  «  A  + 


E(NJ) 


YL  is  set  equal  to  YR,  and  FMIMAX  is  called  to  compute  the  new  functional 
value  YR,  Code  ITERM  is  tested  and  a  zero- value  sends  control  to 
statement  125,  A  non-zero  value  of  ITERM  sends  control  to  statement  150, 
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Statement  160  defines  the  optimum  value  of  the  independent  variable, 
XMIMAX,  to  be  XL  and  the  corresponding  functional  value  YMIMAX  to 
be  YL  before  the  return  to  the  calling  program. 

Statement  150  defines  the  optimum  value  of  the  independent  variable, 
XMIMAX,  to  be  XR  and  the  corresponding  functional  value  YMIMAX  to 
be  YR  before  returning  to  the  calling  program. 


5.  Other  Information 


A,  SUBROUTINE  MIMAX  is  called  by  either  MAIN  or  by  FUNCTION 
GMIMAX. 


B.  SUBROUTINE  MIMAX  calls  FUNCTION  FMIMAX. 


C.  The  flow  chart  on  the  following  pages  illustrates  the  logic  of 
the  search  technique  used  in  this  subroutine. 


©*  The  error  messages  have  the  following  meaning: 


ERROR  OF  TYPE  1  The  end  points  of  the  interval,  AA  and 

BB,  are  at  the  same  location 


ERROR  OF  TYPE  2  If  NFUNC  *  0.  0  and  ACCUR  <  Q,  0, 

the  routine  has  no  way  of  defining  the 
accuracy  requirement. 

ERROR  OF  TYPE  3  The  accuracy  requirement  cannot  be 

satisfied. 


YL‘FMtMAX(XL,NF) 


In  the  Fibonacci  optimization  technique,  FUNCTION  FMIMAX  is 
set  equal  in  turn  to  each  of  the  N  unimodal  functions  of  one  variable  being 
minimized  (maximized)  in  accordance  with  the  value  of  NF. 


2.  Input 

^indicates  integer  quantity 


NF*  MIMAX 

X  MIMAX 

VAL  FEV 


the  number  code  indicating  the  function 
to  be  evaluated 

the  abscissa  for  which  FMIMAX  is  evaluated 

the  value  of  the  function  being  evaluated; 
argument  of  FEV 
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4.  Numerical  Procedure 


Upon  entry  into  FUNCTION  FMIMAX,  control  is  directed  according 
to  the  value  of  NF  to  statements  1  (NF  =  1  or  2)  or  3(NF=  3).  Statement 
1  calls  SUBROUTINE  FEV  as  a  function  of  X,  then  FMIMAX  is  set  equal 
to  the  resulting  value  of  VAL  before  the  return  to  MIMAX  is  executed. 
Statement  3,  defines  XX(1)  as  having  the  value  of  X.  This  parameter  is 
then  used  as  an  argument  in  the  calling  of  FEV  which  yields  the  quantity 
VAL  from  which  FMIMAX  is  defined  before  control  returns  to  MIMAX. 

5.  Other  Information 


A.  FUNCTION  FMIMAX  is  called  by  SUBROUTINE  MIMAX. 

B.  FUNCTION  FMIMAX  calls  in  SUBROUTINE  FEV. 


2,  3.4 


Two  Variable  Fibonacci  Search 


The  two  variable  Fibonacci  Search  involves  the  following 
subroutines  -  GIMAX,  G  MI  MAX,  MIMAX,  and  FMIMAX. 

SUBROUTINE  GIMAX  optimizes  the  secondary  indepen¬ 
dent  variable  of  the  penalty  function.  At  each  evaluation 
point  of  the  secondary  independent  variable  in  this  search, 
FUNCTION  GMIMAX  is  called  in  to  evaluate  the  function 
for  the  optimum  value  of  the  primary  independent  variable. 
This  is  accomplished  by  calling  SUBROUTINE  MIMAX. 

The  following  section  contains  the  descriptions  of  SUB¬ 
ROUTINE  GIMAX  and  FUNCTION  GMIMAX.  SUBROUTINE 
MIMAX  and  FUNCTION  FMIMAX  appear  in  the  preceding 
section. 
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SUBROUTINE  GIMAX  (AA,  BB,  NF,  NMIMAX,  ACCUR, 

NFUNC,  XMIMAX,  YMIMAX) 


1,  Purpose 

SUBROUTINE  GIMAX,  the  controlling  subprogram  for  the  two 
variable  Fibonacci  search  technique,  optimizes  the  secondary  independent 
variable  of  the  function.  At  each  evaluation  point  in  this  optimization, 

GIMAX  summons  FUNCTION  GMIMAX  which  calls  for  the  optimization  of 
the  primary  variable.  Then,  in  GMIMAX,  the  secondary  independent 
variable  value  and  the  optimum  primary  value  are  stored  in  a  table.  This 
process  is  repeated  until  the  selected  number  of  evaluations  have  been  made 
on  the  secondary  independent  variable.  In  the  main  program,  the  table  is 
then  searched  for  the  optimum  secondary  value  producing  also  the  associated 
primary  value.  The  procedure  is  illustrated  in  the  following  diagram 
(where  the  subroutine  or  function  where  step  is  taking  place  is  found  in 
parentheses): 


DETERMINATION  OF  SECONDARY 
EVALUA  T t ON  POINT' 


XXU)  *  Xs 
(GMl  MAX) 


DETERMINATION  OF  primary 

evaluation  point,  xt 
fin  max) 


manmm 


functional  evaluation  at 
XXU)  ANo  XXfA) 

(FEVMXi/AD) 


FMlMAX  3  VAL 


[X (l )  /S  OPTIMA 
FOR,  GIVEN  XX (A) 


2.  Input 


^indicates  integer  quantity 


Name 

Common 

Location 

Source  of 
Input 

DeBcription 

AA 

- 

MAIN 

one  boundary  of  the  defined 
region  within  which  search  will 
take  place 

ACC  UR 

- 

MAIN 

desired  accuracy 

BB 

' 

MAIN 

one  boundary  of  the  defined 
region  within  which  search  will 
take  place 

GMIMAX 

FUNCTION 

GMIMAX 

the  evaluation  of  the  penalty  function 
at  the  optimum  value  of  primary 
variable  for  the  specified 
secondary  variable  value 

ITERM 

END  * 

FEV 

integer  code:  non- zero  value 
indicates  a  zero  or  undefined 
penalty  function;  zero  value 
indicates  a  non- zero  defined  function 

NF 

-  * 

MAIN 

code  number  of  the  function  to 
be  optimized 

NFUNC 

* 

MAIN 

the  number  of  values  of  the 
function  to  be  utilized  in  the 
optimization 

N  MI  MAX 

-  ft 

MAIN 

integer  code;  value  of  +1  calls 
for  maximizing  calculation j  value 
of  -1  calls  for  minimization 

I-1M. 


3.  Output 


Name 

NF  * 
XL 

XMIMAX 

XR 

Y  MI  MAX 


Description 


See  Input 

the  smaller  of  the  two  evaluation  points  withing  the 
current  search  interval  (A,  B) 

optimum  value  of  the  secondary  independent  variable 

the  larger  of  the  two  evaluation  points  within  the 
current  search  interval  (A,  B) 

function  value  corresponding  to  the  XMIMAX  value 
of  the  secondary  independent  variable  and  the 
optimum  value  of  primary  independent  variable. 
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4.  Numerical  Procedure 


SUBROUTINE  GIMAX  is  a  duplicate  of  SUBROUTINE  MIMAX  with 
the  single  exception  that,  where  MIMAX  calls  in  FUNCTION  F MIMAX, 
GIMAX  calls  in  FUNCTION  GMIMAX,  This  takes  place  a  7  locations 
within  the  subroutine:  (a)  once  following  each  of  the  statements  50,  120, 
and  140  and  (b)  twice  following  each  of  statements  60  and  80. 

See  SUBROUTINE  MIMAX  description  for  details. 

J 

5.  Other  Information 

A.  SUBROUTINE  GIMAX  is  called  by  the  MAIN  program  only. 

B.  SUBROUTINE  GIMAX  calls  FUNCTION  GMIMAX. 

C.  SUBROUTINE  GIMAX  calls  the  IBM  supplied  functions  DSQRT 
and  FOXM  (exponentiation). 


X,  NF) 


FUNCTION  GMIMAX,  part  of  the  two  variable" Fibonacci  search 
technique,  optimizes  the  primary  independent  variable  for  each  step  in 
the  optimization  of  the  secondary  variable,  i,  e. ,  for  each  evaluation  point 
selected  during  second  variable  optimization. 


2.  Input 

’•'indicates  an  integer  quantity 

Common  Block  Source  of 


Name 

Name 

Input 

Description 

ALB,  20 

MINSK 

MAIN 

lower  bound  of  the  range  of  the 
primary  independent  variable 

*i 

within  which  the  minimum 
(maximum)  is  to  be  found 

TP©  D 

F0PT 

ZREADX 

desired  accuracy 

KC0UNT 

XXSAVE  * 

MAIN, 

integer  counter,  number  of  times 

GMIMAX 

GMIMAX  is  used;  used  as  an 
index  for  XI SAVE  and  X2SAVE, 

LIMIT 

I0PT* 

ZREADX 

the  number  of  functional  values  to 
be  utilized  by  the  program 

NF 

* 

GIMAX 

the  code  which  indicates  the 
function  GMIMAX  is  evaluating 

UB,  Z0 

MINSK 

MAIN 

the  upper  bound  of  the  range  of 
the  primary  independent 

variable  within  which  the  minimum 
{maximum)  ia  to  be  found 

* 
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1,  Input  (Concl'd) 


Name 

VAL 

X 

XX{1) 

3.  Output 
^indicates 

Name 
ALB,  20 
ERR 
GMJMAX 

ITERM 

KC0UNT 

UMIT 


Common  Block 
Name 


Source  of 
Input 


Description 


MINSK 


MIMAX 


GIMAX 


MIMAX 


the  value  of  the  function  at 
the  minimum  (maximum)  of  the 
primary  independent  variable 

the  current  evaluation  point  of 
the  secondary  independent  variable, 
an  argument  of  GMIMAX 

the  value  at  the  extremum 
of  the  primary  independent 
variable 


integer  quantity 

Common  Block 
Name 

MINSK 

F0PT 


END  * 


XXSAVE* 

I0PT* 


Description 
See  Input 
See  Input 

the  value  of  the  function  obtained  from 
MIMAX,  same  as  VAL 

integer  code  which  indicates  if  function  is 
defined  and  non- zero,  undefined*  or  zero 

See  Input 

See  Input 

See  Input 


UB,  20 


MINSK 


3.  Output  (Concl'd) 


Name 


XX,  20 


Common  Block 
Name 


X1SAVE,  40  XXSAVE 


X2SAVE,  40  XXSAVE 


MINSK 


the  value  of  XX(1)  for  the  KC0UNTth 
pass  through  GMIMAX;  the  optimum 
value  of  the  primary  independent  variable 
for  each  secondary  evaluation  point 

the  stored  value  of  the  secondary  evaluation 
point 

XX{1)  -  see  input;  XX(2)  is  the  evaluation 
point  of  the  second  independent  variable 


4.  Numerical  Procedure 

Function  GMIMAX  equates  XX(2)  to  X  before  calling  SUBROUTINE 
MIMAX  for  the  limits  ALB(l)  and  UB{  1 )  to  determine  the  optimum  value  of 
the  dependent  variable,  VAL,  and  the  corresponding  value  of  the  independent 
variable  XX{  1 ).  GMIMAX  ie  then  equated  to  VAL,  the  integer  KC0UMT  ii 
increased  by  one  and  tested.  If  KC0UNT  is  greater  than  40,  1TERM  is  set 
equal  to  1  and  control  returns  to  G1MAX.  If  KC0UNT  is  less  than  or  equal 
to  40,  it  is  used  as  the  index  of  the  quantities  X1SAVE  and  X2SAVE  which 
are  respectively  set  equal  to  XX(1)  and  XX(2)  before  control  passes  to  OIMAX. 

5,  .ether...  Information 
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Basic  Analysis  Calculations 


The  following  sections  deal  with  the  basic  analysis  cal¬ 
culations  which  are  performed  for  each  vehicle,  whether 
reentry  vehicle  or  decoy.  These  consist  of  the  determ¬ 
ination  of  the  trajectory  after  consideration  of  mass  loss, 
noseblunting,  and  angle  of  attack  effects  and  the  determ¬ 
ination  of  the  radar  cross  section.  The  basic  analysis 
calculations  are  called  by  SUBROUTINE  F123  for  the 
reentry  vehicle  and  for  each  decoy. 


3.  1  Trajectory  Calculations 


The  following  subsections  describe  the  computations 
which  determine  the  vehicle  trajectory.  These  are 
the  initializing  of  trajectory  and  vehicle  geometric 
parameters,  the  calculation  of  the  derivatives  of 
trajectory  and  vehicle  geometric  parameters,  and  the 
predictor  -  corrector  integration  of  these  derivatives, 
and  the  printout  operations. 


3.  1.  i  Initializing  and  Printout  Operations  * 

SUBROUTINE  VIXEN  sets  the  initial  values  of  the  trajectory  variables 
then  calls  CHNTBL  to  assign  the  initial  values  of  the  vehicle  geometric 
variables  and  the  material  properties  of  the  heatshield  for  either  input 
or  built-in  material.  Then  VIXEN  either  defines  the  input  trajectory 
or  wind  tunnel  conditions  and  calls  the  appropriate  subroutines  to  cal¬ 
culate  drag  coefficient  or  calls  in  the  predictor-corrector  integration 
routine,  ADM4RK  which  in  turn  calls  the  subroutines  which  calculate 
the  derivatives.  Then  the  detailed  printout  of  trajectory  related  quan¬ 
tities  is  performed  at  the  designated  print  interval.  After  the  trajectory 
calculation  is  completed  SUBROUTINE  RITOUT  is  called  to  print  a  * 

summary  of  the  maximum  and  minimums  at  printout  altitudes  of  angle 
of  attack. 
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SUBROUTINE  VIXEN 


1.  Purpose 


SUBROUTINE  VIXEN  controls  either  directly  or  indirectly  the 
calling  of  all  the  subroutines  involved  in  the  trajectory,  mass  loss, 
shape  change,  and  drag  coefficient  calculations.  VIXEN  performs  the 

following  functions: 

* 

A.  Defines  plot  titles 

B.  Sets  initial  values  of  variables  being  integrated 

C.  Assigns  the  appropriate  initial  geometry 

D.  Defines  the  A  of  integration  and  the  accuracy  limits  on 
integrated  variables 

E.  Controls  the  calculations  for  the  tabular  input  trajectory 
and  input  wind  tunnel  conditions  options 

F.  Calls  in  the  integration  subrouti  ne  which  controls  the 
evaluation  of  calculated  trajectory 

G.  Tests  for  maximum*  and  minimum*  in  angle  of  atthck 
at  printout  altitudes 

H.  Stores  parameters  at  printout  altitudes  for  the  tape 
and  plotting  options. 

I.  Controls  the  detailed  printout  of  trajectory  information 


2.  Input 


NOTE:  1. 

2. 

quantities  in  Equivalence  column  are  OCCUR  locations  unless 
otherwise  designated 

♦-indicates  integer  quantity  and,  unless  otherwise  designated, 
an  N0CCUR  location 

\ 

Name 

Symbol 

Common 

Location 

Source  of  Input 

A,  514 

Ai 

301  -  814 

ZPRS  or  READIT 

1 

cur* 

ALPHA 

002 

ROTATE,  DEREQ 

angc 

i 

\ 

t 

angl 

ALPKIM 

o(  ' 

003 

ROTATE,  DEREQ 

ALPTAB,  75 

Table) 

3646-3720 

READIT 

inpui 

ALST 

°^ST0P 

122 

F123 

i 

stop/ 

AREF 

A  , 
ref 

001 

PRELIM 

refe 

CAPL 

L 

010 

PRELIM 

shat 

CASE 

m 

128 

READIT 

case 

CD 

CD 

016 

DEREQ  dr  DRAGC0 

total 

CDB 

C*>B 

099 

DRAGC0 

base 

1 

CDFINF,  8 

2793-2800 

DRAGC0 

skin 

\ 

CDI 

C°: 

100 

DRAGC0 

total 

i 

CD0WN,  16 

m 

3549-3564 

SR 2490  or  READIT 

low. 

Hik. 

XjmJST 

s 

098 

no  a r.rch 

JJXvilUv  \f* 

fit* gt  a 

JjJJ*  w  « 

| 

CDPu 

\ 

101 

DRAGC0 

xero 

j 

CHIGH,  16 

'  - 

3533-3548 

SR2490  or  READIT 

ujpp^ 

CM 

C 

m 

202 

PRELIM 

wort 

CMQ 

1-172 

C 

raq 

020 

READIT  or  PRELIM 

dam 

Description 


Units 


i 

lput 

EADIT 

DEREQ 

DEREQ 


DRAGCO 


i 

READIT 


R.EADIT 

PRELIM 


curve  fit  coefficients 

angle  of  attack 

angle  of  attack 

input  tabular  angle  of  attack 

stop  control  on  envelope 

reference  area 

sharp  cone  slant  length 

case  number 

total  drag  coefficient 

base  drag  coefficient 

•kin  friction  drag  coefficient 

total  induced  drag  coefficient 

lower  limit  on  variable  accuracy 

pressure  drag  coefficient  corrected  for  effects 

aero  angle  of  attack  pressure  drag  coefficient 
upper  limit  on  variable  accuracy 

£  JL  JL Jtg  w*  Lr  w  h|h wm  £■  iSr  ££  L 

damping  in  pitch 


radians 

radians 

degrees 

radians 

£.2 

ft. 


2.  Input  (Cont'd) 


Name 


Symbol 


Common 

Location 


Source  of  Input 


CN 

C 

n 

203 

DO  XP  T  TK/ 

Jr  K£j  JL/1A1 

n  A  TIT 

U  A  X  JmJ 

- 

127 

READIT 

DECDFP 

(Acd,  >p 

f  OO 

235 

DRAGC0 

DECFTC 

^  °Df«»)TC 

236 

DRAGC0 

DEL 

- 

- 

ADM4RK 

DELCDP 

Acd 

UP 

234 

DRAGC0 

DELIN 

- 

187 

SR2490  or  READIT 

DELW 

TOTAL 

097 

PRELIM 

DELW2 

A  w2 

226 

PRELIM 

DELW3 

Aw3 

227 

PRELIM 

DERIV,  16 

m 

m 

ADM4RK 

DNBNDZ 

m 

248 

READIT 

DVALUE,  16 

- 

-  • 

ADM4RK 

EM0 

129 

READIT 

G 

8 

027 

SR2490  or  READIT 

GAMFO 

•< 

o 

105 

F123 

fllPIi  A-V 

h  /RT 
s  0 

029 

PRELIM 

IATM0S 

m 

08  * 

READIT 

uhl 

- 

I0CCUR  (314)* 

SR2490  or  ZREADX 

y«f  -a  y  spiff w 

INALFH 

m 

30  * 

ll'U1  AflTHP 

JCV  Jtl  Jmimr  A  A 

I0P,  90 

m 

I0tCUR(l-90)* 

ZREADX  or  SR249G 

normal 

date 

pressui 


traneve^j 

delta  of  j 
induced; 

I 

largest 

I 

total  ch« 

change  1 

change  i 

derivati 
lowest  a 
into  grail 

J 

memo  m 
factor  tl 
input  inj 

non-dini 


option 
code  c 


of  3  it 

rvr>jb  ms 

jjllTw  if 

option 


control; 
options  I 


■P  AHTT 
pilUi  X 


,ut 


EXPIT 


READX 


SE24V0 


*H#H  H1ll(|llil|il|||#il'|ll 


Description 


Units 


normal  force  coefficient 


date 


pressure  induced  skin  friction  drag  coefficient 


transverse  curvature  induced  skin  friction  drag  coefficient 


delta  of  integration  in  ADM4RK 
induced  pressure  drag  coefficient 


ft. 


largest  value  that  DEL  is  allowed  to  have;  preset  to  -2000,  ft. 

lb. 


total  change  in  weight  =  AW2  +  A  W3 

change  in  weight  due  to  ablative  effects  alone 

change  in  weight  due  to  thrusting  effects  alone 

derivatives  to  be  integrated  by  ADM4RK 
lowest  altitude  for  which  read  in  atmosphere  is  used 
integrated  values  of  variables 
memo  number 

factor  to  convert  slugs  to  lbs.  mass,  32. 174 
ibftut  initial  flight'  path  angle 

non  -dime  ns  i  onali  zed  stagnation  enthalpy 


lb. 

lb. 


ft. 


lbm/elug 

radians 


option  code  lot  input  atmosphere 

code  controls  units  of  radar  cross  section;  a  value 
Of  S  indicate!  decibels,  4  indicates  square  meters; 
preset  to  3. 

option  for  Input  angle  of  attack  with  calculated  trajectory 

contort  codes;  used  specifically  for  wake  plotting 
options  In  VJKISW 


;  ,  ‘  V  ”  ,j  :  - ,  ■  f  i  .  ,jj 
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2.  Input  (Cont'd) 


Name 

Symbol 

Location 

Source  of  Input 

ITAPE 

• 

2V* 

READIT 

jjH<Z>LD 

- 

01  * 

CHNTBL 

LA 

La 

033 

PRELIM  or  CHNTBL 

LAMDA 

032 

PRELIM  or  CHNTBL 

LL 

- 

-  * 

PRELIM 

L0PT 

_ 

07* 

SR2490  or  READIT 

LP 

- 

<Z>CCUR(4000)* 

ADM4RK 

MAXVAL 

- 

06* 

READIT 

MD0T,  32 

m 

i 

2708-2739 

EVIL 

MHEAT 

- 

10  * 

READIT 

MINF 

Moo 

035 

PRELIM 

M0PT 

- 

03* 

READIT 

NPL0T,  5 

m 

24-  28  * 

READIT 

NPRINT 

- 

1,4* 

READIT 

PO 

P 

0 

109 

D  |T  AFiTT 

£V£iAUi  A 

(P./P  >. 

c  8  1 

2801-2808 

AER0DY 

PHIO 

112 

F123 

PI 

n 

042 

SR2490 

PS 

p 

0 

047 

PRELIM 

PSIQ 

% 

114 

F123 

PSIALP 

V* 

200 

DEREg 

go 

°0 

110 

READIT 

go 

°D 

05  i 

PRELIM 

Description 


Units 


'  option  for  V, ^  ,  Z  tape  storage 

error  code  in  CHNTBL 

i 

■L  axial  length  of  vehicle 

L  bluntnesa  ratio,  Rn/Rb 

,  error  code  in  PRELIM 

1  trajectory  option  code 

error  code  in  ADM4RK 

maximum  number  tabular  values  for  input  trajectory 

►  or  wind  tunnel  conditions  options 

mass  loss  rate  along  vehicle 

input  code  controlling  mass  loss  calculations 

free  stream  Mach  Number 

input  code  controlling  mass  loss  calculations 

input  code  controlling  plots 

input  code  controlling  detailed  trajectory  printout 

input  initial  angular  velocity  P 

\  distribution  along  body  of  edge  pressure  non- 

dimenaionalized  by  stagnation  pressure 
initial  Euler  angle ,  jf  # 

;  j  1  mathematical  constant 

stagnation  pressure 

input  initial  Euler  angle,  $ 

o 

j  thrust  offset  angle 

I,  inpnt  initial-angular  velocity,  Qq 

dynamic  p#«#s*»»#  • 


ft. 

o 

2 

lbm/ft  sec 

rad/ sec 

radians 

« 

lb/ft2 

radians 

radians 

rao/sec 

lb/ft2 
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2.  Input  (Cont'd) 


Name 

Symbol 

Common 

Location 

Source  ol  Input 

- ] 

QD0T,  32 

• 

qi 

2676-2707 

AER0DY 

distributio 

REYL 

R 

062 

PRELIM 

free  strea 
cone  slant 

RN 

Rn 

052 

CHNTBL 

nose  radiu 

SMF 

f 

081 

ROTATE 

frequency^ 

SMRO 

R 

o 

111 

READIT 

input  initie 

TO 

T 

o 

102 

READIT 

input  initie 

TH 

Th 

201 

PRELIM 

total  thrus 

THEALO 

<U 

A 

113 

F123 

input  initie 

THETA 

0 

076 

READIT  or  CHNTBL 

cone  half  a 

THE TAD 

®D 

069 

CHNTBL 

cone  half  3 

TRAJRN,  75 

R  (table) 
n 

1644-1718 

READIT 

input  traje 

TRAIT,  75 

t (table) 

1344-1418 

READIT 

input  traje 

TRAJV,  75 

V  (table 

1494-1568 

READIT 

input  traje 

TRAJW,  75 

W  TOTAL* table* 

1569  -  1643 

READIT 

input  trajtt 

TRAJZ,  75 

Z  (table) 

1419  -  1493 

READIT 

input  trajei 

TRJALP,  75 

«#f(  table) 

1719  -  1793 

READIT 

input  trajei 

TST 

tSTOP 

123 

SR2490  or  READIT 

stopping  cl 

TTMAT,  3 

3565-3567 

TEQUAT 

component 
coordiate  1 

UPEND Z 

** 

247 

READIT 

upper  altit 

VO 

y 

O 

106 

P  Iff1  AFlTTr1 
tULnUl  JL 

1 

4  mint  Initli 

It  lllr  w  m  #Mi 

W1 

wi 

133 

READIT 

input  initia 

WTMINF,  75 

M  (table) 

1119-1193 

READIT 

input  table, 

WT0TAL 

W TOTAL 

228 

TJ  "Bp  *•  T  It  4f 

Mr  UIkIu  J-aLJM, 

total  vel|c 

► 

• 

Description 

Units 

1 

distribution  along  body  of  aerodynamic  heating  rates 

2 

btu/ft  -sec 

» 

' 

; 

free  stream  Reynolds  number  based  on  sharp 
cone  slant  length 

- 

t 

i 

nose  radius 

ft. 

\ 

frequency  of  cycle  in  oC 

cycles/sec 

r 

input  initial  angular  velocity  R 

input  initial  time 

rad/ sec 

in 

total  thrusting  force 

lb. 

input  initial  Euler  angle,  0  , 

*  o 

radius 

JTBL 

cone  half  angle  in  radians 

radians 

cone  half  angle  in  degrees 

degrees 

t 

input  trajectory  values  for  nose  radius 

in. 

input  trajectory  values  for  time 

sec. 

input  trajectory  values  for  velocity 

ft/  sec 

input  trajectory  values  for  total  weight 

lb/ 

l 

input  trajectory  values  for  altitude 

<  1 

ft, 

input  trajectory  vttuee  for  o( 

degrees 

)IT 

stopping  control  on  time 

sec. 

component!  of  thrust  vector  in  trajectory 

lb, 

coordiate  system 

upper  altitude  limit  on  use  of  Input  atmosphere 

ft. 

input  initial  velocity 

ft/  sec 

input  initial  Weight  for  first  configuration  in  a  case 

lb. 

Input  table  of  Much  number*  for  wind  tunnel  option 

m 

in 

total  vehicle  weicht 

lb, 

r 
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2.  Input  (Concl'd) 


Name 

Symbol 

common 

Location 

Source  of  Input 

S 

WTPT0T,  75 

P rp ^  |  ^  table ) 

1269-1343 

X>  TP  A  HTTP 

KiL ADI  X 

input  tal 

WTRINF,  75 

R  /in  (table) 

e0Q 

1194-1268 

READIT 

input  tal 
inch  for' 

WTZ,  75 

Z(  table) 

1044-1118 

READIT 

i 

input  tal 

XBAR 

X 

090 

PRELIM 

interact^ 

XBAR1 

126 

PRELIM 

rarefactl 

XRO 

X 

r 

0 

107 

READIT 

i 

input  inij 

XUF' 

* 

^UP 

237 

SR249  0  or  READIT 

value  of 

zo 

Z 

o 

108 

READIT 

i 

input  inii 

ZBAR 

Z 

120 

SR2490  or  READIT 

altitude  i 

ZPRl 

118 

SR2490  or  READIT 

initial  px 

ZPR2 

119 

READIT 

second  p* 

l 

ZST 

121 

I 

READIT 

i 

altitude  i 

i 

ZTR 

2„ 

092 

iv  ..  ,  ij 

PRELIM 

transitio 

ETUIMX 

z 

turn 

m 

CHNtBL 

altitude  < 
discoatia! 
per  case 

Description  Units 

input  table  of  total  pressure  for  wind  tunnel  option  lb/ft2 

input  table  of  free  stream  Reynolds  number  per  1/in 

inch  for  wind  tunnel  option 

input  table  of  altitudes  for  wind  tunnel  option  ft. 

interaction  parameter 
rarefaction  parameter 


(ADIT 

IADIT 

1 

IADIT 


input  initial  trajectory  range 

value  of  X  at  the  beginning  of  continuum  flow 
input  initial  altitude 

altitude  at  which  print  increment  is  changed 
initial  printout  increment 
second  printout  increment 
altitude  stopping  control 
transition  altitude 

altitude  at  which  configuration  of  vehicle  is  changed 
discontinuous^  to  the  second  input  geometry 
per  case 


ft. 

ft. 

ft. 

ft. 

ft. 

ft. 

ft. 

ft. 
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3,  Output 


NOTES:  1. 

quantities  in  Equivalence  column  are  OCCUR  location  unless 

otherwise  designated 

.j 

2. 

*-  indicates  integer  quantity  and, 

unless  otherwise  designated, 

an  N0CCUR  location 

Name 

Symbol 

Common 

Location 

ALB ARP 

a' 

131 

last  m 

ALMAX,  200 

a 

1044-1243 

maxim 

max 

i 

ALMIN,  200 

amin 

1244-1443 

minimi 

AI.PENV 

aenV 

096 

envelo 

ALPHA 

a 

002 

instant 

ALPL0T,  16C 

a 

- 

plottin 

ALPRIM 

a' 

003 

angle  t 

ALWIG'2 

130 

maxim 

BETA 

P 

231 

ballist 

BETAP 

Ajs/  A  z 

230 

change 

BETAPL,  16C 

P 

PCCUR(  641-800  ) 

storage 

COB  PL T,  160 

CD 

B 

rnfov  iaa 

KjUM  WIj  X$  10  w 

c_ 

Di 

- 

plottini 

CD1PLT,  160 

_  m 

C_ 

DT 

m 

plottin 

CDPL0T,  160 

CD 

m 

plottini 

1%  Wp  f 

JLr  HjJUi 

- 

• 

delta  o 

nimKin  i  k 

- 

• 

.  gee  te3 

D0W 

d^wtotal 

^  J  J 

F&tiO  0 

- 

vEr:i.  7.  ^ 

;; ■-  .  ■; . ■  •  <»>  . ,  « 

,  !  J™  ,  1 

''  ,,  ^i?, 

1 1,111,1  ■ 
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ess 

J 

mated, 

r 

i 

\ 

> 

Description 

Units 

last  minimum  in  a' 

radians 

it 

maximum s  in  angle  of  attack 

radians 

minimums  in  angle  of  attack 

radians 

envelope  value  of  angle  of  attack 

radians 

► 

instantaneous  angle  of  attack 

radians 

plotting  storage  for  printout  values  of  angle  of  attack 

degrees 

angle  of  attack 

radians 

maximum  preceding  last  maximum  in  a‘ 

radians 

ballistic  coefficient 

» 

•800  ) 

change  in  ballistic  coefficient  per  unit  altitude 

ft’1 

storage  for  first  160  values  of  §  for  plotting 

m 

plotting  storage  for  first  160  values  of  C 

m 

B 

plotting  storage  for  first  160  values  of  CL 

m 

plotting  storage  for  first  160  values  of  C_ 

DI 

m 

plotting  storage  for  first  160  values  of  total  C_ 

D 

m 

delta  of  integration  in  ADM4RK 

ft. 

see  text 

i 

i 

ratio  of  total  drag  force  to  total  weight 

m 

P 
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3-  (Cont'd)  i 


Name 

Symbol 

Common 

Location 

DVALUE,  16 

- 

- 

integrate* 

FMAX,  200 

f 

max 

2244  -  2443 

values  of 

FMIN„  200 

f 

min 

2244  -  2643 

values  of| 

FREQ 

— 

— 

i 

interval  a 
see  A  0Mb 

GRATE 

095 

a  effects? 

HSRTPL,  160 

h  / RT 
s  0 

- 

plotting  si 

IKMAX 

11  * 

total  numl 

IKMIN 

- 

12* 

total  num| 

LCHNGE 

- 

* 

control  cc 

LL 

- 

* 

( 

error  cod 

LP 

- 

0CCUR(4OOO)* 

error  cod 

LPL0T 

I0CCUR(3O2)* 

counter  ft 

MD0T,  32 

m, 

l 

2708-2739 

mass  loss 

MINF 

M  oo 

035 

free  strea 

NNTAPE 

- 

- 

counter  ft 

0CPLOT,  160 

- 

- 

j  plotting  si 

quantity  s 

PE1PLT,  160 

P  /P 
e  j  s 

- 

plotting  s| 
point  to  s 

PE7PLT,  160 

pyp. 

- 

i 

plotting  si 
diameter 

PEttPLT,  160 

PVP. 

- 

plotting  si 
maximum 

f 


Description 
integrated  values  of  variables 

values  of  frequency  at  altitudes  for  maximums  in  a  cycles /sec 

values  of  frequency  at  altitudes  for  miumums  in  a  cycles/ sec 


interval  at  which  ADM4RK  returns  to  VIXEN, 
see  ADM4RK 

multiplier  for  C  which  incorporates  the  Integrated 
F 

o 

a  effects  over  one  cycle;  see  text. 

plotting  storage  for  first  160  printout  values  of  h  /RT 

s  o 

total  number  of  maximums  in  a 
total  number  of  minimums  in  a 
control  code  for  CHNTBL 
error  code  in  PRELIM 
error  code 

counter  for  plotting  storage 
mass  loss  rate  along  body 


lbm/ft  sec 


free  stream  Mach  number 
counter  for  tape  storage 

plotting  storage  for  first  160  output  values  of  any 
quantity  stored  in  OCCUR 

plotting  storage  for  ratio  of  edge  pressure  at  tangent 
point  to  stagnation  pressure 

plotting  storage  for  ratio  of  edge  pressure  at  maximum 
diameter  of  blunt  cone 

plotting  storage  for  ratio  edge  pressure  of  sharp  cone 
maximum  diameter  point  to  stagnation  pressure 


* 


* 


« 
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3«  Output  (Cont'd) 

Name 

Symbol 

Common 

Location 

PLMINF,  160 

Mpo 

- 

plot 

PSPL0T,  160 

P 

s 

- 

plot 

PT0TAL 

P 

total 

125 

total 

QD11PL,  160 

qtang.  pt. 

- 

plot. 

QD41PL,  160 

• 

q 

some 

- 

plot 

QD7PLT,  160 

^7 

- 

plott 

poin 

QD8PLT,  160 

48 

** 

plott 

poin 

QD0T,  32 

2676-2707 

disti 

QPL0T,  160 

- 

plott 

REYINF 

Rey  /ft 

244 

the  I 

tunm 

beinj 

RN 

Rn 

052 

nosd 

T 

*cycle 

075 

timJ 

T1  to  T28 

- 

- 

i 

plot 

TAMAX,  200 

t 

max 

1444-1643 

TAMIN,  200 

tmin 

1644  -  1843 

time 

THEALP 

6 

a 

071 

Eule 

< 

TIMER 

t 

080 

mats 

TIXM 

m 

- 

plott! 

ttyt 

JL  41 

m 

- 

plott 

TIXZ 

m 

- 

plott 

I 
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• 

Description 

Units 

1 

plotting  storage  for  free  stream  Mach  number 

- 

> 

plotting  storage  for  stagnation  pressure  in  atmospheres 

atm. 

total  pressure 

lb/ft2 

plotting  storage  for  stagnation  point  heating  rate 

Btu  /ft2  sec 

plotting  storage  for  sonic  point  heating  rate 

2 

Btu/ ft  sec 

plotting  storage  for  blunt  cone  max.  diameter 
point  heating  rate 

Btu/ft2  sec 

plotting  storage  for  sharp  cone  max.  diameter 
point  heating  rate 

Btu/ft  sec 

distribution  along  body  of  heating  rate 

Btu/ft2Sec 

plotting  storage  for  dynamic  pressure 

lb/ft2 

the  Reynolds  number  per  foot  in  the  set  of  wind 
tunnel  conditions  for  which  drag  calculations  are 
being  made 

1/ft 

nose  radius 

ft. 

time  for  a  cycle  in  angle  of  attack 

sec. 

plot  title  storage 

times  at  which  maximums  in  angle  of  attack  occur 

sec. 

times  at  which  minimums  in  angle  of  attack  occur 

sec. 

Euler  angle 

radians 

instantaneous  trajectory  time 

sec. 

plotting  title 

- 

plotting  title 

m 

plotting  title 

m 

1-179 


3.  Output 

wmmmm mmmmmm 


Name  Symbol  £??SSS 


n] 


TPL0T,  160 

t 

PCCTJR(  1-160) 

plotting  a  tor  a 

UPBND,  16 

. 

- 

see  text 

V 

V 

082 

instantaneous 

VOGD0T 

V/g 

232 

acceleration 

VOGPLT,  160 

V/g 

PCCUR(48 1-640) 

plotting  a  tor  a 

VPL0T,  160 

V 

PCCUR(321-480) 

plotting  stora 

WAR 

• 

- 

dummy  varial 

WL1P,  160 

Lj(wake) 

PCCUR(1281) 

wake  length  f< 

WL2P,  160 

(wake) 

PCCUR(  1441) 

wake  length  fi 

WL3P,  160 

(wake) 

PCCUR{  1601) 

wake  length  f< 

WR1P,  160 

R^  (wake) 

PCCUR{801) 

wake  radar  cj 

WR2P,  160 

R^  (wake) 

PCCUR{961) 

wake  radar  ci 

WR3P,  160 

• .  Rj  (wake) 

PCCUR(H21) 

wake  radar  cj 

WT0TPL,  160 

W 

total 

- 

i 

plotting  a  tor  a 
printout  altiW 

XR 

X 

r 

087 

component  of! 

i 

YR 

Y 

r 

199 

side  range  du 
in  Y  direction 

Z 

Z 

091  • 

altitude 

l 

ZMAX,  200 

z 

max 

1844-2043 

altitudes  at  W 

ZMIN,  200 

Z  . 
min 

2044-2243 

altitudes  at 

Description 


Units 


plotting  storage  of  printout  values  of  trajectory  times 

i 

see  text 

►  instantaneous  velocity 

acceleration 

plotting  storage  for  acceleration  term 
plotting  storage  for  velocity 


dummy  variable  used  in  tape  storage  option 

► 

wake  length  for  first  frequency 

wake  length  for  second  frequency 

wake  length  for  third  frequency 

wake  radar  cross  section  for  first  frequency 

wake  radar  cross  section  for  second  frequency 

wake  radar  cross  section  for  third  frequency 

;  plotting  storage  for  values  of  total  weight  at 

printout  altitudes 

component  of  range  i.i  X  direction 

side  range  due  to  thrust  offset;  component  of  range 
in  Y  direction 

altitude 

altitudes  at  which  maximums  in  angle  of  attack  occur 
altitudes  at  which  minimums  in  angle  ofattack  occur 

j|r.  w 

»  t  > 

•a 

1-180 


sec. 

ft/ sec 

g's 

g's 

ft/ sec 

meters 

meters 

meters 

square  meters  or 

decibels,  see  1DBL 

square,  meterage, , 
decibels,  see  IDBL 

square  meters  or 
decibels,  see  IDBL 

lb. 

ft. 

ft. 

ft. 

ft. 

ft. 
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3,  Output  (concl'd) 


Name 

Symbol 

Common 

Location 

Description 

'' 

ZPL0T,  160 

ZST 

Z 

PCCUR(  161-320) 

121 

plotting  sto; 

altitude  stoj 

7TTCP 

u  U  Diy 

Z 

- 

current  alt} 

i 

i 

I 


i 

1 

I 

t 
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Description 


Units 


1-320)  plotting  storage  for  printout  altitudes  ft. 

altitude  stop  control  ft. 

current  altitude  being  used  in  trajectory  calculations  ft. 


4.  Numerical  Procedure 


Initially,  SUBROUTINE  VIXEN  defines  the  titles  to  be  used  in 
the  plotting  options,  sets  the  counter  NK  to  zero,  assigns  the  internal 
program  trajectory  variables  V,  GAMF,  TIME,  Z,  XR,  P,  Q,  SMR, 

PSI,  THEALP,  PHI  their  input  initial  values,  and  zeroes  YR  and  PSIALP. 

The  trajectory -related  quantities  to  be  used  in  the  integration  subroutine, 
ADM4RK,  are  given  their  initial  values,  i.  e.,  ZUSE  is  set  equal  to  Z, 
and  DVALUE  locations  1  to  4  and  8  to  15  are  set  respectively  to  V,  GAMF, 
TIME,  XR,  PSI,  THEALP,  PHI,  Q,  SMR,  P,  YR,  and  PSIALP.  The 
following  quantities  are  then  zeroed:  BETA  BE  TAP,  DELBET,  T,  SMF, 
ALPRIM,  ALPHA,  ALPENV,  IKMAX,  IKMIN,  PRINTZ,  ZST0,  LPL0T, 
and  NNTAPE.  Then  IALP  is  set  to  1?  the  quantity  FREQ  which  controls 
the  return  from  SUBROUTINE  ADM4RK  is  set  equal  to  the  negative  of  the 
initial  printout  increment  ZPRl.  The  delta  of  integration,  DEL,  to  be 
used  in  ADM4RK  is  set  initially  to  the  negative  of  one  fifth  of  the  initial 
print  increment  ZPRl,  The  value  of  DEL  is  then  tested  against  DELIN; 
if  DELIN  is  greater  than  or  equal  to  DEL,  DEL  retains  its  value;  however, 
if  DELIN  is  less  than  DEL,  then  DEL  is  initially  given  the  value  of  DELIN. 

The  SUBROUTINE  VIXEN  sets  the  control  code  LCHNGE  =  1,  used 
in  SUBROUTINE  CHNTBL,  before  calling  in  SUBROUTINE  CHNTBL  in 
statement  60  to  define  the  geometric  and  material  properties  for  the  initial 
configuration  as  well  as  the  initial  values  of  DVALUE{5)  through  (7). 

The  control  code  LP  is  set  equal  to  1,  then  the  error  code  JJHOLD  from 
CHNTBL  is  tested.  If  JJH0LD  is  not  equal  to  -1,  control  passes  to  statement 
50;  if  JJH0LD  a  -  1,  the  error  code  LP  is  set  equal  to  6  causing  the 
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termination  of  trajectory  calculations  and  an  error  message  is  printed 
out  before  control  passes  to  statement  100.  Statement  50  tests  the 
current  printout  altitude,  ZUSE  which  is  the  same  as  Z,  against  the 
output  ZTURNX  from  CHNTBL.  When  the  first  configuration  is  defined 
in  CHNTBL,  ZTURNX  is  set  equal  to  the  input  ZTURN.  The  test  on 
ZUSE  causes  control  to  pass  to  statement  61  for  altitudes  greater  than 
ZTURNX.  When  ZUSE  becomes  less  than  or  equal  to  ZTURN,  the 
integer  code  LCHNGE  is  set  equal  to  2  and  control  passes  to  statement 
60.  There  CHNTBL  is  called  to  define  the  new  configuration  and  to 
redefine  ZTURNX  to  the  value  -1.  0,  which  combined  with  the 
test  in  statement  50  prevents  SUBROUTINE  CHNTBL  irom  being  called 
more  than  two  times  per  case. 

Statement  61  begins  the  block  of  equations  which  define  the  upper 
and  lower  bounds  on  the  absolute  difference  that  is  allowed  between  the 
extrapolated  and  interpolated  values  of  the  variables  being  integrated  in 
ADM4RK.  For  each  of  the  16  terms  in  the  D VALLE  array  the  following 
criterion  is  used  in  defining  the  corresponding  UP3ND  and  DNBND.  If 
the  absolute  value  of  DVALUE(  J)  is  less  than  or  equal  to  1.0,  define 
UP3ND( J)  =  CHIGH(J)  and  DNBND(J)  =  CD0WN(J).  If  the  |DVALUE(J)  | 

>  1.  0,  then  UPBND(J)  =  CHIGH(J}  x  |dVALUE(J)|  and  DNBND(J)  = 
CDOWN(J)  x  |DVALUE(J)|. 

Next,  the  trajectory  option  code  L0PT  is  tested.  If  L0PT  is  less 
than  3,  i.e.,  0,  1,  or  2,  control  passes  to  statement  31.  If  L0PT  equals 
4,  control  passes  to  the  calculations  for  the  tabular  input  wind  tunnel 
conditions  which  start  at  statement  41.  If  L0PT  equals  3,  the  appropriate 
internal  program  quantities  are  equated  in  turn  to  each  set  of  tabular 
trajectory  variables  in  the  input  table  and  the  q's  and  m's  are  zeroed, 
then  the  .calculations  for  the  drag  coefficient  are  performed. 
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Beginning  with  statement  41,  an  identical  procedure  is  follow*  /ith 
the  quantities  corresponding  to  the  wind  tunnel  inputs,  i.  e. ,  Hu  internal 
variables  are  set  equal  to  the  (NK+  1)  corresponding  set  of  variables  in  the 
input  table,  the  drag  calculations  for  the  appropriate  mass  loss  option  are 
performed,  the  results  printed  out,  then  the  value  of  the  counter  NK  is 
increased  by  one,  and  control  returned  to  statement  3,  the  procedure  is 
repeated  until  NK  reaches  MAXVAL,  the  maximum  number  of  values  in 
input  table. 

In  order  to  calculate  a  trajectory,  L0PT  =  0,  1 ,  or  2,  following  the 
CONTINUE  statement  31,  SUBROUTINE  ADM4RK  is  called  in  to  perform 
the  integration  of  the  variables  and  to  call  in  DEREQ  which  controls  the 
calculation  of  the  derivatives.  Control  returns  from  ADM4RK  after  the 
designated  printout  interval  with  the  new  values  of  the  variables,  DVALUE. 
TIME  is  set  equal  to  DVALUE(3)  and  Z  to  ZUSE,  then  the  error  code  LP  is 
tested.  If  LP  is  6,  an  error  message  is  printed  out  and  the  printout  sequence 
(which  contains  the  incorrect  numbers)  is  performed  before  the  program 

terminates.  If  LP  is  not  equal  to  6,  control  passes  to  statement  7. 


At  statement  7,  L<JPT  is  tested.  If  L0PT  is  non-zero,  control  passes 
to  statement  30;  if  L0PT  «  0,  indicated  a  three  degree  of  freedom  in  rotation 
trajectory,  the  quantities  IKMAX  and  IKMIN  are  tested.  If  IKMAX  or  IKMIN 
equals  200,  control  passes  to  statement  91;  if  not,  the  value  of  the  integer 
IALP  directs  control  to  the  appropriate  statement  within  group  of  equations 
testing  the  maximums  and  minimi; ms  in  angle  of  attack,  statements  8  to  30 
where  the  integrated  a  correction  term  GRATE  is  defined. 

T- 


GRATE  «  A2  «  +Aj«2) 


dT 


15.^18«2+(A2l  +  A248  +  A2,e2)>+(A30  +  A338  +  A36e2)A2 

2.x . .  .  .  2,  v  2 


VA13  +  A160  +  A199  +{A22  +  A250+A28e2)A  +<A31  +  A34*  +  ^  A 


Following  statement  30,  if  L<0PT  equals  2,  indicated  a  simplified  angle 
of  attack  trajectory  using  the  Bessel  function  model,  the  envelope  value  of  oC 


is  set  equal  to  the  instantaneous  •< .  Following  statement  91,  the  same 
procedure  takes  place  for  the  case  where  L0PT  ®  1,  particle  trajectory 
option  where  may  be  read  in  from  a  table.  Additional  quantities 
required  for  calculated  trajectory  output  are  calculated,  before  tests  of 
printout  parameters  are  made.  If  L0PT  is  less  than  3,  control  passes  to 
statement  100;  otherwise,  printout  quantities  for  input  trajectory  or  wind 
tunnel  conditions  are  defined  and  control  passes  to  statement  80. 


Following  statement  100,  the  counter  NNTAPE  is  increased  by  1  (used 
with  the  tape  storage  quantities).  Next,  if  the  plotting  counter,  LPL0T,  has 
reached  the  allowable  maximum  of  160,  control  passes  to  statement  80. 

If  not,  LPLOT  is  increased  by  one,  if  LPL0T  is  now  equal  to  160  a 

*  message  that  plots  have  been  cut  off.  Next,  the  plotting  storage  quantities 
are  equated  the  appropriate  program  variables  then  the  CONTINUE  statement 
80  is  reached.  If  I0P<74)  equals  1,  SUBROUTINE  WAKE  is  called  in  to 

*  control  the  calculation  of  the  properties  of  the  vehicle  wake.  If  the  integer 
code  NPRINT  equals  aero,  control  passes  to  statement  90,  bypassing  all 
detailed  trajectory  printout.  If  NPRINT  is  non- zero,  the  detailed  trajectory 
printout  proceeds  in  the  following  order  (1)  the  translational  trajectory 
parameters,  (2)  the  drag  coefficient,  its  components,  the  interaction 

and  rarefaction  parameters,  (3)  vehicle  configuration  parameters  (4' 
then,  if  M0PT  is  non- zero,  the  pressure,  heating,  and  mass  loss  distributions 
(5)  if  L0PT  “  0  or  2,  the  rotational  quantities,  (6)  if  INALPH  >  0  or 
L0PT  ■  1,  the  tabular  value  of  angle  of  attack.  If  L0PT  is  greater  than 
2,  control  passes  to  statement  49  where  NK  is  tested  against  MAXVAL, 

If  all  tabular  input  for  wind  tunnel  and  input  trajectory  options  has  not  been 
used,  control  returns  to  statement  3  after  NK  is  increased  by  1;  otherwise, 
control  passes  to  statement  834. 
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^  Statement  90  is  the  beginning  of  the  stopping  tests.  If  neither 

the  stopping  time  nor  stopping  altitude  has  been  reached,  control  passes 
>  to  statement  50  and  calculations  continue;  otherwise,  control  passes 

to  statement  51.  Statement  5 i  calls  in  SUBROUTINE  RIT0UT  and  then 

passes  on  to  test  the  NPL0T  array.  If  all  five  values  of  NPL0T  are  ' 

zero,  control  passes  to  statement  833  bypassing  the  plotting;  otherwise,  i 

1  it  passes  to  statement  82.  Following  statement  82,  the  individual 

NPL0T's  are  tested  and  accordingly  SUBROUTINE  AVFLT  is  summoned  to 

I 

perform  the  appropriate  plots. 

k 

Following  statement  833,  I0P(74)  is  tested;  If  equal  to  zero, control 
passes  to  statement  837.  bypassing  the  testing  of  quantities  10  P{77)  through  j 

10F(82)  which,  if’ equal  to  I,  cause  SUBROUTINE  AVPLT  to  be  called  to 
plot  the  parameters  WL1P,  WL2P,  WL3P,  WRlP,  WR2P,  and  WR3P 
respectively.  After  statement  837,  the  tape  option  ITAPE  is  tested;  * 

if  equal  to  aero,  control  passes  to  statement  834;  if  non- zero,  the  tape 
containing  V,  A  ,  and  Z  is  written.  Following  statement  834,  the  units 
of  input  angles  are  changed  from  radians  back  to  degrees  to  propare  for  a  * 

new  case  before  returning  to  the  calling  subroutine. 

^  11  1  ir 
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5 .  Other  Information 

A.  SUBROUTINE  VIXEN  is  called  by  SUBROUTINE  FI 23, 

B.  SUBROUTINE  VIXEN  calls  in  the  following  subroutines: 

1.  SUE  ROUTINE  CHNTBL 

2.  SUBROUTINE  PRELIM 

3.  SUBROUTINE  AER0DY 

4.  SUBROUTINE  MASSL0 

5.  SUBROUTINE  T0MAL0 

6.  SUBROUTINE  DRAGC0 

7.  SUBROUTINE  ADM4RK 
B.  SUBROUTINE  WAKE 

9.  SUBROUTINE  RIT0UT 
10.  SUBROUTINE  AVPLT 


C,  SUBROUTINE  VIXEN  calls  in  the  library  function  FDXPI. 


jfef: 


SUBROUTINE  CHNTBL  (D VALUE,  ZTURNX,  LCHNGE) 

1.  Purpose 

SUBROUTINE  CHNTBL  assigns  the  appropriate  geometric  and 
material  propertes  as  initial  values  at  the  reentry  altitude  ZO  and  at 
altitude  ZTURN,  where  the  integration  of  the  derivatives  is  restarted 
after  an  input  discontinuous  change  in  geometry  and  heatshield  material, 
In  addition,  some  initial  values  are  set,  certain  numerical  factors  are 
defined,  and  some  tests  on  input  quantities  performed. 


2.  Input 

*  indicates  integer  quantity  and  N0CCUR  number  code 


Occur/Noccur  Source  of 


Name 

Symbol 

Number 

Input 

Descrl] 

CMQIN1 

C 

m 

*1 

124 

READIT 

s' 

input  C  -  fir  si 

m 

9 

CMQIN2 

Cm 

125 

READIT 

input  C  -  seco 

(after  shSpe  chang 

q2 

LA 

La 

033 

VIXEN 

instantaneous  vehh 

LAI 

La^ 

138 

F123 

input  axial  length  - 

LA2 

L*2 

v 

144 

F123 

input  axial  length  - 
(after  shape  chang* 

LAMDA 

A 

32 

VIXEN 

instantaneous  blunt 

LAMDA1 

137 

READIT 

input  bluntness  rat: 

LAMDA  2 

143 

READIT 

input  bluntness  rati 
(after  shape  chang< 

LCHNGE 

* 

VIXEN 

control  code 

MATLNl 

20# 

SR2490  or 
READIT 

input  material  case 

MATLN2 

21* 

SR  2490  or 
READIT 

input  material  code 

MHEAT 

10* 

SR2490  or 
READIT 

input  mass  loss  col 

MXTAB1 

16* 

SR2490  or 
READIT 

No,  of  values  in  3C 

c 

fir  nt 

MXTAB2 

17* 

SR2490  or 
READIT 

No,  of  values  in  X 

0 

second  conflguratid 

NGE0M 

15* 

SR2490  or 
READIT 

input  geometry  cod' 

N0SE0P 

05* 

READIT 

input  nose  blunting 

. . . «■ 


Value 

_ _  Description  Preset  Units 

input  C  -  first  configuration 

mq 


input  Cm  -  second  configuration 
(after  eha?pe  change) 

instantaneous  vehicle  axial  length 

input  axial  length  -  first  configuration 

input  axial  length  -  second  configuration 
(after  shape  change) 

instantaneous  bluntneas  ratio 

input  bluntness  ratio  -  first  configuration 

input  bluntness  ratio  -  second  configuration 
(after  shape  change) 

control  code 

input  material  case  -  first  configuration  1 

input  material  code  -  second  configuration  1 

input  mass  loss  code  0 

No.  ol  values  inX  /D,  1,  I  table  -  1 

eg  X 

fir  it  cofifigur&tiOai 

No.  of  values  in  X  /D»  1,  I  table-  1 

eg  x 

second  configuration  (after  shape  change) 

input  geometry  code  1 

input  nose  blunting  code 


ft. 


ft. 


ft. 
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2.  Input  (Cont'd) 

Occur /Nocciir  Source  of 


Name 

Symbol 

Number 

Input 

1 

RB 

Rb 

053 

VIXEN 

instantane^ 

RBI 

Rbl 

136 

F123 

input  baae 
(alter  ahap 

RB2 

Rb,, 

2 

142 

F123 

input  baae 

RN 

Rn 

052 

VIXEN 

inatantanea 

RNI 

Rn^ 

135 

F123 

input  nose1 

RN2 

Rn, 

141 

F123 

input  nose 

2 

2933- 

2982 

(alter  ahap* 

TABU,  50 

Ij  (Table) 

JkW°r 

input  1  tab! 

TAB  12,  50 

I2  (Table) 

2983- 

3032 

READIt  or 
SR2490 

input  I  tabl 
(alter  ahap 

TAB IX 1,  50 

1  (Table) 

X1 

3033- 

3082 

■  READIT  or 
SR2490 

input  1  tab 

3t  1 

TAB  1X2,  50 

1  (Table) 
x2 

3083- 

3132 

Wr 

input  I  tab 
(alter  ahap< 

TAB  21,  50 

Zj  (Table) 

3133- 

3182 

READIT 

input  Z  Cor  j 
configuratic 

TABZ2,  50 

Z2(  Table) 

3183- 

3232 

READIT 

Input  Z  loi* 
configurate 

"l^'OTP  T*  A 

JL  JHIJm*  JL 

e 

076 

VIXEN 

cone  hall  ,;U 

THETAl 

ei 

134 

READIT 

leput  cone  ( 

A  IW#  A 

#2 

140 

BFAHTT 

AmAUIi  JL 

cwiiro  • 

Mi., ,hr 

TW1 

T 

w 

°1 

149 

READIT  or 
SR2490 

input  initial 

confifluratiJ 
1  1 

% 
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Input  I  table  «  second  configuration 
(after  shape  change) 

input  I  table  -  first  configuration 


0  alug-ft2 

1*  0  slug -ft2 


input  1^  table  -  second  configuration  1,  0 

(after  shape  change) 

input  Z  for  Xc  /D,  I,  I  function  -  first 
g  x 

configuration  .  * 

input  Z  for  XCg/D,  I*  Ix  function  -  second 
configuration  (after  shape  change) 
cone  half  angle  of  current  configuration 

input  cone  half  angle  -  first  configuration 

■ ,eco”1 

input  Initial  wall  temperature  -  first  1200  ’ 

configuration 


slug-ft2 

ft, 

ft. 

radians 

deg. 

deg* 

°R 


rrTtx-v-l 


2.  Input  (Concl'd) 


Occur/Noccur 

Name  Symbol  Number 


TW2 

T 

w 

°  2 

168 

2833 

TXCGD1,  50 

(Xcg/Djj 

2882 

TXCGD2,  50 

(Xcg/D)2 

2883 

2932 

W 

W 

084 

W1 

W1 

133 

W2 

W2 

139 

ZTURN 

^turn 

145 

3.  Output 

BETAl 

>1 

004 

BETA2 

<>2 

005 

BET  A3 

1*3 

006 

BETA4 

*4 

007 

CMQIN 

Cm 

q 

196 

COST 

cos  9 

008 

CP2 

C 

"2 

014 

CPG 

C 

015 

Source  of  j 

Input  Deecrj 


READIT  or 

SR  2490 

input  initial  v 
configuration 

READIT 

input  X  /  D  1 

c*  i 

READIT 

input  X  /D  I 
eg 

VIXEN 

initial  weight 

READIT 

input  weight  • 

READIT 

input  weight  < 

READIT  or 
SR2490 

altitude  at  wh 

sublimation  r 
sublimation  r 
order  of  reac 
activation  ter 
input  Cm  f1 

q 

cosine  of  con 
specific  heat' 

| 

specific  heat] 


. . mum. 


IMIMMNii 


Source  of 
1  Input 


'  READITor 
,  SR  2490 


READIT 


f  READIT 
VIXEN 
.READIT 


,  READIT 


RE, ADIT 
SR 2490 

* 


or 


Value 

Description  Preset  Unit 


o 

input  initial  wall  temperature  -  second  1200,  R 

con/j  juration 

input  X  /D  table  -  first  configuration 
c£ 

input  Xcg/D  table  -  aecond  configuration 


initial  weight  -  (A  weight)  ablation  lb. 

input  weight  -  first  configuration  lb. 

input  weight  -  second  configuration  lb. 

altitude  at  which  configuration  is  changed  -1;0  pt. 

>  , 


sublimation  rate  coefficient 

sublimation  rate  coefficient 

order  of  reaction 

activation  temperature 

input  Cm  for  current  configuration 
9 

cosine  of  cone  half  angle 
specific  heat  of  solid 

specific  heat  of  gas 


rnmmmmmmmmmmmmm* 

sec  °R 
•ec  °R  r3 


°R 


Btu 

iDm  w. 
Btu 

lbm  °R 


3 


ut  (Cont'd) 


JJHOLD 


L AMD  IF 
LAMDA 


Occur/Noccur 

Number 


DELHC 

AHc 

023 

heat  of; 

] 

DELRH0 

DVALUE 

022 

f 

differe 

i 

reBultii 

EPSIL 

€ 

024 

coeffic  : 

F 

F 

025 

'heat  of  j 

FACTR2 

190 

lumeq 

FACTR3 

191 

numerj 

F  AC  TR4 

192 

numerij 

FACTR5 

193 

aisnaeri,! 

FACTR6 

194 

i 

numerii 

FACTR7 

195 

ntiitoiaJ 

HREF 

Hr.f 

030 

( 

conatar 

heat  of  decomposition 


difference  between  virgin  and  char  density 
resulting  values  of  16  variables  being  integrated 
coefficient  of  emission 
heat  of  ablation 

numerical  factor  used  in  subroutine  EVIL 
numerical  factor  used  in  subroutine  EVIL 
numerical  factor  used  in  subroutine  EVIL 

numerical  factor  used  in  subroutine  EVIL 

numerical  factor  used  in  subroutine  EVIL 
numerical  factor  used  in  subroutine  EVIL 
const  int  •  0  for  no  combustion 
control  code 

instantaneous  vehicle  axial  length 

value  of  axial  length  for  last  Z  before  ZTURN 

value  of  bluntness  ratio  for  last  Z  before  ZTURN 

. .  '  ifjijljj  hi:  ;]!(,,  jj  >' 

instantaneous  bluntness  ratio 


lbm 


lbm/ ft3 


Btu/lbm 


Btu 


ft3  °R 
Btu 

—sy . » 

fr 

ISM/  ft3 


LBM/ft 


ft,. 

in. 


3.  Output  (Cont'd) 


Name 


Symbol 


Occur /Noccur 
Number 


Descrip 


MATLNO 

13  * 

material  numb* 

MAX TAB 

04  * 

No.  of  values  i 
configuration 

NGL 

^  GL 

039 

laminar  transp 

i 

- 

NGT 

tl  GT 

041 

turbulent  trans] 

NSL 

H  SL 

038 

laminar  tranaj 

NST 

H  ST 

040 

turbulent  trans 

PI 

7T 

042 

mathematical  c 

RB 

Rb 

053 

instantaneous  t 

RB1F 

Rh 

blF 

147 

value  of  base  r 

inverse  of  sin  1 

RESINT 

(sin  9)"1 

054 

RH02 

>2 

058 

char  density 

m 

Rn 

052 

instantaneous  i 

'l,!l 

RN1F 

Rn1F 

169 

value  of  Rn  at  j 

SINT 

sin  8 

.64 

sine  of  cone  ha 

SQC0ST 

(cos  8)2 

066 

square  of  cosii 

TAB  I,  50 

Stable) 

894- 

943 

moment  of'ineii 

TABIX,  50 

Stable) 

944- 

993 

table  of  mcmei 
configuration 

TABZ.50 

7 

994- 

1041 

Z  table'  for  X.  1 
c 

Description 


Units 


material  number  code  for  current  configuration 
No.  of  values  in  X  /D,  I,  I  table  for  current 

CC  X 

configuration  6 
laminar  transpiration  factor  of  gas 
turbulent  transpiration  factor  of  gas 
laminar  transpiration  factor  of  solid 
turbulent  transpiration  factor  of  solid 
mathematical  constant 


instantaneous  base  radius  ft. 

value  of  base  radius  for  last  Z  before  ZTURN  in, 

inverse  of  sin  8 

3 

char  density  Ibm/ft 

instantaneous  nose  radius  ft. 

value  of  Rn  at  last  Z  before  ZTURN  in. 

sine  of  cone  half  angle 
square  of  cosine  of  cone  half  angle 


2 

moment  of  inertia  table  for  current  configuration  slug/ft 

» 

table  of  moment  of  inertia  about  x  axis  for  current  slug/ft 

configuration 

Z  table  for  X  /D,  1 ,  I  of  current  configuration  ft, 

CC  X 


x  ain  r 


TAN  9 


070 


TWF-TlF 

e. 

IF 

150 

THETA 

0 

076 

Tiir  t  An 

JL  |mIi  jD  1  <t\U 

0 

D 

069 

TW  %  7 

A  n  f  if  6 

Tw, 

2644- 

i 

2675 

TWO 

^0 

074 

TWSTAG 

TW 

STAG 

073 

TXCGD,  50 

X  /D 

844- 

c.g. 

893 

W 

w 

084 

WO 

wo 

085 

w  if 

w,_ 

IF 

170 

WTH 

*  TTIHNY 

m*'  A'  U  iUNA 

w^„ 

TH 

204 

tangent  of  cone  hi 
value  of  0  at  last 
cone  hall  angle  of 

i 

cone  hall  angle  of 

i 

matrix  of  wall  ter 
initial  wall  tempe 
wall  temperature 
X  /D  table  for  c 

eg 

initial  weight  •  (A 
initial  weight  lor  i 
value  of  total  we  i(j 
initial  weight  (  A 

Jf 

altitude  control  cn 
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Will . . .  ,, 


Description 

tangent  of  cone  half  angle 

value  of  9  at  last  Z  before  ZTURN 

cone  half  angle  of  current  configuration 

cone  half  angle  of  current  configuration  in  degrees 

matrix  of  wall  temperatures  along  body 

initial  wall  temperature  for  current  configuration 

wall  temperature  at  stagnation  point 

X  /D  table  for  current  configuration 
**1# 

initial  weight  -  (Aweight)  , ,  , 

1  ablation 

initial  weight  for  current  configuration 
value  of  total  weight  at  Z  just  before  ZTURN 
initial  weight  (  A  weight)  thrusting 
altitude  control  code 


Units 


degrees 

radians 

degrees 

°R 


'R 


lb 

lb 

lb 

lb 


v 
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4.  Numerical  Procedure 

The  equations  in  SUBROUTINE  CHNTBL  may  be  grouped  into  four 
main  sections  as  follows:  (1)  definition  of  initial  geometry  at  reentry,  (2) 
definition  of  initial  geometry  at  input  altitude  ZTURN,  (3)  definition  of 
heatshield  material  properties,  {4)  miscellaneous  calculations  of  numerical 
factors,  setting  initial  values,  and  tests  on  inputs.  The  subroutine  is  called 
in  at  the  reentry  altitude  ZO,  where  code  LCHNGE  ■  1,  to  define  the  Initial 
geometric  and  material  properties.  The  subroutine  is  again  called  in  at 
the  first  altitude  which  is  either  £  ZTURN,  to  define  to  the  new  initial 
configuration. 

The  subroutine  initially  sets  JJHOLD  *  0,  then  using  a  directed 
G0  T0  statement  proceeds  to  statement  100  of  LCHNGE  ■  1,  initial 
reentry  altitude,  or  to  statement  200  of  LCHNGE  »  2,  at  or  just  below 
altitude  ZTURN.  Statement  100,  the  beginning  of  the  first  section,  sets 
ZTURNX  *  ZTURN,  then  the  tables  for  X^/D,  I,  1^  as  a  functions  of  Z, 
to  be  used  la  the  remainder  of  program,  are  set  equal  to  tables  (X  /DL, 

C|  1 

V  a*  functions  of  Z  r  CMQIN  is  set  *  CMQIN1,  MAXTAB  ■ 

MXTABl,  TWO  *  TW1,  MATLN0  *  MATLN1,  and  J J  *  151.  The  directed 
G0  T0  statement  controlled  by  the  value  of  NGE0M  causes  the  flow  of  the 
subroutine  to  be  directed  to  the  group  of  geometry  calculations  consistent 
with  the  input  quantities.  If  NGE0M  ■  1,  the  flow  of  the  subroutine  is  directed 
to  the  group  of  equations  beginning  with  statement  102.  Here  the  Input 
quantities  Wl,  THETA1,  RN1,  RBI  ars  respectively  set  equal  to  internal  program 

quantities  W,  THETA,  RN,  RB,  the  quantity  LAI  ia  calculated  for  use  in 
SUBROUTINE  AER0DY*  and  finally  skips  to  statement  300, 

For  the  other  input  geometry  options,  a  similar  procedure  is 

followed.  When  NGE0M  is  2,  the  group  of  equations  starting  with  statement 
103  is  utilised.  The  internal  program  quantities  W,  THETA,  RB,  and  RN 
are  respectively  set  equal  to  the  Input  quantities  Wl,  THETAl,  RBl  and 


« 


RBl^LAMDAljand  LAI  ia  calculated  before  proceeding  to  statement 
300.  The  NGE0M  **  3  option  utilises  the  group  of  equations  beginning 
with  statement  104.  The  internal  program  quantities  W,  RN,  RB  are 
respectively  set  equal  to  the  input  quantities  Wl,  RMl,  RBI.  The  cone 
half  angle,  THETA  is  calculated  from  the  input  LAI,  RNl,  RB  1,  then 
control  goes  to  statement  300. 

If  the  parameter  LCHANGE  is  equal  to  2,  the  directed  G0  T0 
statement  causes  control  to  go  to  statement  200,  which  marks  the  beginning 
of  the  equations  defining  the  second  initial  configuration.  Here,  ZTURNX 
is  set  equal  to  a  negative  number,  which  prevents  this  subroutine 
from  being  called  again.  The  final  values  of  RN,  RB,  THETA,  LA, 

LAMDA,  WT0TAL  at  altitude  just  before  ZTURN  are  stored  under 

respective  designations  RNl F,  RBlF,  THETIF,  LA1F,  LAMDIF,  and 

WlF.  After  these  definitions,  the  remainder  of  this  section  of  equations 

up  to  statement  300  exactly  parallels  the  geometry  calculations  of  the  * 

initial  configuration. 

The  assignment  of  material  properties  for  both  configurations  * 

begins  with  statement  300,  The  material  number  code  MATLN0  is 
tested  and  if  it  is  larger  than  the  allowable  maximum  value  of  6  then  an 
error  message  is  written  out,  MATLN0  is  set  equal  to  1,  and  the  calcula¬ 
tions  continue.  The  directed  G0  T0,  statement  number  55,  causes 
control  to  go  to  the  appropriate  set  of  material  properties  based  on  the 
value  of  MATLN0,  If  MATLN0  *  1,  control  is  directed  to  statement 
number  31  and  the  teflon  properties;  MATLN0  *  2  to  statement  37  and 

LT  properties;  MATLN0  *  3  to  statement  32  and  0TWR  properties; 
a 

MATLN0  »  4  to  statement  38  and  phenolic  nylon  properties;  MATLN0  ■  5 

to  statement  39  and  carbon  phenolic  properties;  MATLN0  *  6  to  statement 

33  and  the  Input  material  properties.  The  sixteen  input  material  properties 

are  set  equal  to  OCCUR  values  0CCUR(JJ  +  1J,  0CCURf  JJ  ♦  2»,  etc,  where 

the  appropriate  JJ  is  defined  with  the  configuration  geometry  aa  JJ*  151  for  « 


the  first  configuration  and  JJ  *  170  for  the  second  configuration.  After 
the  material  properties  are  defined  control  is  directed  to  statement  34. 

The  last  section  of  the  subroutine  performs  the  following  functions: 

(1)  Tests  to  ensure  that  THETA  is  within  the  range  of  a  pplic ability;  if  not, 
writes  an  error  message  and  stops  program;  (2)  sets  THETAD  equal  to 
cone  half  angle  in  degrees,  changes  units  of  THETA  to  radians,  and 
defines  useful  trigonometric  functions  of  THETA;  (3)  sets  the  initial  values 
of  geometric  quantities  to  be  integrated;  (4)  sets  initial  values  of  TW  matrix; 

(5)  calculates  numerical  factors  to  be  used  in  SUBROUTINE  EVIL;  and 

(6)  tests  program  input  options . 

5.  Other  Information 

A.  SUBROUTINE  CHNTBL  calls  in  the  following  functions: 

1.  AS1NR 

2.  DSIN 

3.  DC0S 

4.  DSQRT 

5.  DL0G 

B,  SUBROUTINE  CHNTBL  is  called  by  SUBROUTINE  VIXEN, 
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SUBROUTINE  R1T0UT 


1.  Purpose 


SUBROUTINE  RIT0UT  prints  out  a  summary  of  the  maximums 
and  minimums  in  angle  of  attack  as  determined  by  the  testing  in 
SUBROUTINE  VIXEN. 


lS£H?  See  VIXEN  for  locations  in  OCCUR  array  of  input  quantities. 
*  indicates  integer  quantity 

NgSiS  Symbol  Description 

ALMAX,  200  a'  maximums  in  a'  from  VIXEN 

max 

ALMIN,  200  o'  minimums  in  a’  from  VIXEN 

FMAX,  200  f  frequencies  corresponding  to  a’  's 

iritus  ,  max 

FMIN,  200  f^^  frequencies  corresponding  to  a'llin's 

IKMAX  *  number  of  maximums  (max.  200) 

IKMIN  *  number  of  minimums  (max.  200) 

N PRINT  *  printing  option  code 

TAMAX,  200  t  times  corresponding  to  a'  's 

max  r  B  max 

TAMIN,  200  t  .  times  corresponding  to  a1  '$ 

min  min 

ZMAX,  200  Z _  altitudes  corresponding  to  a1 

max  r  °  max 

ZMIN,  200  Z  altitudes  corresponding  to  o'  's 


if 

i® 
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3.  Output 

None 

4.  Numerical  Procedure 

SUBROUTINE  RIT0UT  begins  by  testing  the  printing  code  NPRINT. 

If  NPRINT  equals  zero,  control  returns  to  the  calling  subroutine;  if 

NPRINT  is  non-zero,  control  passes  to  statement  51,  Statement  51 

causes  the  program  to  printout  the  titles  in  F0RMAT  statement  1051, 

Then  the  D0  loop  including  all  the  statements  through  52  is  executed  for 

all  values  of  J  from  1  through  IKMAX.  Inside  the  loop  each  value  of 

ALMAX(J)  is  multiplied  by  57.  29578  to  change  units  from  radians  to 

degrees  for  the  printout,  then  a  write  statement  causes  each  set  of 

t  ,  z  ,  f  ,  a'  to  be  printed  out  in  form  of  FORMAT 
max  max  max  max 

statement  1052.  The  printout  of  the  minimums  follows  an  identical 
procedure  in  the  DOloop  encompassing  all  the  statements  through  53, 
before  returning  to  the  calling  subroutine. 

5.  Other  Information 

A.  SUBROUTINE  RIT0UT  is  called  by  SUBROUTINE  VIXEN. 

B.  SUBROUTINE  RITOUT  calls  in  no  other  subprograms 
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Numerical  Integration  of  Trajectory  Variables 

r 


i 


* 


* 


t  The  following  section  describes  the  operation  of  the 

i 

|  predictor  -  corrector  integration  routine,  ADM4RK, 

which  summons  SUBROUTINE  DEREQ,  the  control¬ 
ling  subroutine  for  the  derivative  calculations. 


i 


. . . 


SUBROUTINE  ADM4RK  (NZ,  ZDEL,  VALUE,  PERN,  UPBND,  DNBND, 
FACTOR,  FREQ,  HLIMIT,  LZ,  ZXINPE,  DELMIT) 


I.  Purpose 

SUBROUTINE  ADM4RK  performs  the  integration  of  NZ  first  order 

dy-f 

differential  equations  of  the  form  =  f.(x,yi, - yNZ)  i  =  1....NZ 

by  a  four  point  predictor-corrector  method  which  will  alter  the  integration 
interval  to  maintain  a  required  accuracy. 


2.  Input 

Name 

Source  of 

Input 

Description 

DELMIT 

VIXEN 

the  minimum  value  that  the  delta  of  integra¬ 
tion  is  allowed  to  have 

DERN 

DEREQ 

the  array  of  NZ  derivatives 

DERNN 

DEREQ 

the  array  of  NZ  derivatives 

DNBND 

VIXEN 

the  lower  bound  on  the  absolute  difference 

FACTOR 

VIXEN 

the  fraction  by  which  the  delta  of  integration 
is  increased  or  decreased;  must  be  less 
than  1. 

FREQ 

VIXEN 

the  interval  of  the  independent  variable,  XINDEP, 

at  which  control  is  returned  to  the  calling 
program  (If  L  *  1  initially) 
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2,  Input  (Concl'd) 


Name 

HLIMIT 

L 

LZ 

NZ 

UPBND 

VALUE 

ZDEL 

ZXINDE 

3.  Output 

Name 

L 

TINDEP 


Source  of 
Input 

VIXEN 


DEREQ 


VIXEN 


Description 

the  upper  limit  of  integration;  if  L  was 
initially  1,  control  returns  to  calling 
program  when  this  value  is  reached 

the  control  parameter;  the  value  input 
may  be  either  1  or  -5.  It  is  reset  by 
ADM4RK  and  should  not  be  modified  by 
user.  See  other  information, 

same  as  L 


VIXEN  the  number  of  equations  to  be  integrated 

VIXEN  the  upper  bound  on  the  absolute  difference 

that  is  allowed  between  the  extrapolated 
and  interpolated  values 

VIXEN  the  array  of  NZ  integrated  values;  on 

the  first  pass,  this  array  is  input  from 
the  initial  conditions  in  VIXEN 

VIXEN  the  delta  of  integration  supplied  initially 

by  VIXEN  and  modified  by  ADM4RK 

VIXEN  the  value  of  the  independent  variable 


Description 

see  Input  and  Other  Information 

designation  for  the  independent  variable  in  Runge 
Kutta  evaluation 


3.  Output  (Concl'd) 


Name 

Description 

VALUE 

the  array  of  NZ  integrated  values 

VALUEN 

the  array  of  NZ  function  valueB  evaluated  by  the 
Runge  Kutta  calculation 

XINDEP 

same  as  ZXINDE 

ZBAR 

the  extrapolated  functional  values  of  the  Adams  - 
Bashforth  method 

ZXINDE 

see  input 

4,  Numerical  Procedure 

The  initial  value  Xq(  ZXINDE)  of  the  independent  variable  and  the 
corresponding  initial  conditions  Yj,  Y^, . , .  Y^  (the  array  VALUE)  for 
the  NZ  equations  is  supplied  to  SUBROUTINE  AD M4RK  by  SUBROUTINE 
VIXEN.  The  routine  first  calculates  the  derivatives  at  X  ,  then  immediately 
returns  control  to  the  calling  program  to  allow  printout.  When  ADM4RK 
is  reentered,  it  uses  a  fourth  order  Runge-Kutta  method  to  start  the  ' 
integration  by  obtaining  values  of  each  function  and  its  derivative  at  3 
equally  spaced  pointe  Xj,  X2(  X3  separated  by  the  interval  Ax  (DEL). 

Nest  using  the  Adams -Bashforth  method,  the  functional  values  at  X^  and 
the  derivatives  at  all  4  points  are  used  to  extrapolate  new  functional 
values  at  X4  «  X3  +  A  X.  The  associated  derivatives  at.  X^  are 
computed,  and  new  interpolated  functional  values  at  X.  calculated  from 


the  derivatives  at  X^,  X2,  X^,  X^  and  the  functional  values  at  X  .  This 
repeated  extrapolation  and  interpolation  process  is  carried  on  until  the  end 
of  the  integration  interval  (HLIMIT)  is  reached. 

The  differences  between  the  extrapolated  and  interpolated  results  are 
used  to  control  the  accuracy  of  the  integration.  If,  at  any  point,  this 
difference  for  any  of  the  functions  is  larger  than  the  specified  upper  limit 
UPBND,  the  A  X  of  integration  is  reduced  by  the  chosen  factor  FACT0R 
(i.  e,  DEL  becomes  DEL#(1. -FACT0R).  Similarly,  if  this  difference  is 
smaller  than  the  specified  lower  limit  DNBND,  AX  is  increased  by  the  factor 
FACT0R  (i. e.  DEL  becomes  DEL*(1.  +  FACTOR)).  The  minimum  A  X 
used  by  the  routine  is  DELMIT,  specified  by  the  VIXEN.  If  the  required 
accuracy  cannot  be  maintained,  the  control  code  L  is  set  to  6,  and  control 
1b  returned  to  the  calling  program. 


SUBROUTINE  ADM4RK  begins  calculations  by  defining  the  quantities 
N»  L»  XINDEF  which  are  respectively  equal  to  NZ,  LZ,  ZOEL* 
ZXIND1.  The  input  DELMIT,  the  minimum  allowable  delta  of  lntcg*atitii% 
la  tested.  M  DELMIT  is  sero,  it  ie  set  equal  to  DEL/ 1000,  before  control 
passes  to  statement  9002.  Next,  the  control  parameter  L  is  tested. 

A  negative  L,  cause  ■  L  to  be  redefined  as  the  absolute  value  of  L  before 
control  passes  to  statement  23,  which  begins  the  calcnlhtinns  appropriate 
to  the  initial  pass  through  ths  subroutine.  For  a  aero  value  of  L,  control 
passes  to  201  where  L  is  reset  to  6  before  control  is  directed  to  statement  4. 
The  directed  00  T0  of  statement  1211  Is  executed  when  L  is  positive. 

From  statement  1211,  the  subroutine  flow  ie  directed  to  statement  23  for 
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initial  paaa  calculatione  whan  L  ia  1,  to  atatement  204  for  calculations 
preliminary  to  integration  calculations  for  L  value*  of  2,  3,  and  4,  or 
for  L  s-  5  to  statement  24  which  ia  the  beginning  of  the  integration 
calc  ulationa. 


The  calculations  following  atatement  23  for  the  initial  pass  conaist 
of:  (1)  the  definition  of  XFREQ  (=XINDEP  +  FREQ),  the  next  value  of 
the  Independent  variable  for  which  control  will  be  returned  to  the  calling 
program,  (2)  the  control  code  LL  is  aet  to  2,  (3)  the  value*  of  DEL  and 
XINDEP  are  saved  for  the  next  pass  a*  SAVDEL  and  SINDEF,  respectively, 
(4)  the  value  41  i*  assigned  to  M  which  causes  the  entry  into  Runge  Kutta 
routine  from  the  assigned  G0  TO  of  atatement  24,(5)  SUBROUTINE  DEREQ 
is  called  to  calculate  the  derivatives  which  correspond  to  the  initial  values 
of  the  dependent  variablea,{6)  if  L  has  the  error  value  of  6  control  is  sent 
to  220,  otherwise  if  L  i  6  to  statement  40. 


Statement  204  is  the  beginning  of  a  D0  loop  which  sets  the  N  values 
of  the  derivative  DERN  and  the  N  integrated  values,  VALUE,  equal  to  the 
appropriate  saved  values  SAVD  and  SAVE,  respectively.  The  independent 
variable  XINDEP  is  then  set  equal  to  the  stored  value  SINDEP  and  control 
passe*  to  statementt  24, 


1 


Statement  24  is  an  aeaigned  G0  70  statement  which  directs  flow  to 
statement  41  and  the  Runge-Kutta  starting  integration  acheme  when  M 
has  been  assigned  the  value  41,  When  M  hat  the  assigned  value  42,  control 
is  directed  to  statement  42,  the  beginning  of  the  Adams -Bashf  or  th 
predictor-corrector  integration  procedure. 


m  til'  ll 

Ml 


1  l 
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The  calculations  using  the  Runge-Kutta  procedure  begin  with 
statement  41.  Statement  41  is  the  beginning  of  a  D0  loop  which  defines 
the  N  values  of  DERNM3  the  derivatives  at  the  initial  point  Xq  from  their 
counterparts  in  the  DERN  array,  the  derivatives  at  the  initial  value  of 
the  independent  variable.  Then  the  calculations  contained  in  the  D0 
loop  ending  with  statement  43  are  performed.  Each  of  the  three  passes 
through  this  loop  represents  the  determination  of  the  N  functional  values 
and  the  N  derivatives  at  one  of  the  three  points  -  X.,  X  ,  or  X  -  which 

A  t*  j 

are  separated  by  the  interval  DEL,  The  calculations  involved  are  as 

follows:  First  W1  is  set  equal  to  DEL/ 2.  0  then  the  BO  array  is  zeroed. 

The  D0  loop  following  statement  44  which  ends  with  statement  50  nested 

inside  the  D0  loop  ending  at  43  evaluates  the  following  set  of  equations, 

where  the  index  J  represents  the  subscript  of  the  K  quantities  »X  is 

o 

initial  point  of  the  independent  variables,  F.(x)  is  dy  /dx  (DERN),  and 

A  1 

h  is  the  delta  of  integration  (DEL): 


f,(x  )  h 
i  o 

1 

i  =  1, 

fiuo  Hr* h 

j=  2 

i=  1, 

it  X  k 

f,(x  +  7- 
1  0  2 

)  h 

j  *  3 

i  ®  1, 

f(x  +  h)  h 
0 

j  =  4 

i®  1, 

'*»>!  ‘  t  K  +  2K2  ♦  2K3  +  KJ 
x,*x  +  h,  (y.)  *  (yjt  +  (A  y).  h 


Each  pass  through  this  loop  represents  the  evaluation  of  one  of  the  K 
factors  for  each  of  N  quantities  being  integrated,  the  incrementing  of  the 
f  used  in  the  K  calculations  (done  by  calling  DEREQ  to  calculate  derivatives 
at  half  steps  h/2),  and  the  evaluation  of  the  new  values  of  y^'s  and  the 
new  x.  The  statements  45  through  49  define  the  appropriate  numerical 
factors  for  use  in  the  evaluating  the  K's  and  new  y/s.  Following 
statement  50  is  a  DO  loop  ending  at  61  which  stores  the  N  derivatives 
calculated  for  each  of  the  points  and  X2  -  DERNM2  and  DERNM1, 
respectively  -  and  redefines  the  VALUE  array  to  equal  the  final 
VALUEN  array  of  the  preceding  D0  loop.  Following  61,  the  independent 
variable  XINDEP  is  set  the  final  value  of  TINDEP  from  the  preceding 
D0  loop  before  statement  43  is  reached. 

When  the  calculations  of  the  functional  values  and  derivatives  for 
the  points  Xjf  X^,  and  X3  are  completed  (D0  loop  ending  with  43  has 
been  executed),  the  quantities  HI,  H2,  and  H3  are  each  given  the  value 
of  DEL,  The  quantity  M  is  then  assigned  the  value  42,  this  causes  control 
to  pass  directly  to  the  Adams -Bashforth  integration  from  statement  24  for 
all  subsequent  passes  through  ADM4RK,  unless  the  integration  is  restarted 
by  setting  L  equal  to  1  or  *S.  Control  skips  to  utatement  9042  bypassing 
statement  42  and  the  definition  of  XFREQ. 


Statement  42  marks  the  beginning  of  the  Adams -BashfOrth  predictor- 
corrector  integration  scheme.  Following  42,  the  quantity  XFREQ  Is 
increased  by  the  amount  FREQ  before  9042  is  reached,  The  directed 
G0  TO  then  sends  control  to  statement  1406  if  L  ■  1,  to  120?  if  L  is  5, 


or  to  1407  if  L  is  2,  3,  or  4  (indicating  respectively  that  a  FREQ  interval, 
HLIMIT,  or  both  have  been  reached).  The  block  of  calculations  between 
statements  1407  and  1406  describe  the  FREQ  and  HL1MIT  testing.  Statement 
1407  tests  the  absolute  alue  of  the  difference  between  XINDEP  and 
XFREQ  (to  determine  if  a  FREQ  interval  has  been  reached)  against  the 
absolute  value  of  DEL.  If  | XINDEP  -  XFREQ  |  >  |DEL|,  a  FREQ 
interval  has  been  reached  and  control  passes  to  1408;  if  <  |DEL|,  a 
FREQ  Interval  has  not  been  reached  and  the  test  in  14060  is  performed. 
Statement  14060  determines  whether  HLIMIT  has  been  reached  by  testing 
I  XINDEP  -  HLIMIT}  against  |DEL|,  If  (XINDEP  -  HLIMIT  |  >  |DEL|, 
the  limiting  value  has  not  been  reached  and  control  passes  to  1406  where 
the  Integration  continues.  If  | XINDEP  -  HLIMIT |  j  |DELj,  the 
limiting  value  has  been  reached  and  oontrol  is  sent  to  1408, 

The  CONTINUE  statement  1408  is  followed  by  a  D0  loop  ending 
at  1410  which  sets  the  N  element  arrays  ZB  AH,  DERNN,  DERM,  DERNM1 
and  DERNM2  equal,  respectively  to  the  arrays  VALUE,  BERN,  DERNM1, 
DERNM2,  and  DERNM3.  The  code  LL  is  set  to  1,  then  statement  11 
defines  the  quantity  'TEMP  *  |  XINDEP  -  XFREQ  |,  which  is  subsequently 
tested  against  IDEE},  If  TEMP  >  |DEL|,  indicating  that  a  FREQ' 

Interval  has  not  been  reached,  control  passes  to  statement  1$,  On, 
the  other  head.  If'  TEMP  <  |del|,  the  following  quantities  are  defined: 

L  ■  2,  SMBEP  -  XINDEP,  SAVDEL  «  DEL,  TEMPI  «  |  DEL  {/DEL, 

DEL  *  TEMF*'TEMPl  before  reaching  15,  Statement  15  redefines 
TEMP  to  be  | XINDEP  -  HLIMIT}.  This  quantity  is  then  tested  to 
determine  whether  the  limiting  value  of  iU  Independent  variable  has  been 
r bached.  If  TEMP  <  |DELj,  L  is  set  equal  to  1  before  control  passes 
to  18;  if  TEMP  >  IDElI,  control  skips  to  17;  if  TEMP  -  (DELI, 


control  pauses  to  18,  Statement  18  Increases  the  value  of  L  by  2  then 
the  following  are  defined;  SAVED  EL  =  DEL,  TEMPI  *  |  DEL  | /DEL, 
and  DEL  =  TEMP*TEMPl  before  17  is  reached.  Statement  17  directs 
control  to  22  if  L  *  1  or  5  or  to  6  if  L  =  2,  3,  or  4  (after  passing  through 
the  previously  described  block  of  equations  L  must  be  either  2,  3,  or  4, 


The  block  of  equations  between  statements  1406  and  2  performs 
the  Adams -BasMorth  predictor -corrector  integration  calculations. 
Following  the  CONTINUE  statement  1406,  LL  and  L  are  both  set  to  1 
before  CONTINUE  statement  1207  Is  reached.  After  1207,  the  following 
factors  are  defined  beginning  at  statement  12  where  H's  are  distances 
between  the  points 

W1  ■  HI  +  H2 
W2  *  (HI  +  H2)2 
W3  -  2H1  +  H2 
W4  ■  HI  *  H2  +  H3 
WS  ■  2(H1  +  H2)  +  H3 

W6  *  4H1  +  3H2  +  H3 
W7  »  2H1  +  H2  ♦  H3 

■If  L  is  2,  3,  or  4,  control  passes  next  to  statement  202,  If  L  is  1  or  5, 
TEMP  l»  defined  ae  XINDEP  4  DEL  in  statement  14  and  DEL  is  set  to 
TEMP  -  XINDEP.  If  |  DEL }  <  DEL  MIT  (indicating  that  the  delta  of 
integration  to  smaller  titan  the  specified  minimum),  control  passes  to  201 


W8  =  (HI  +  H2)  HI 
W9  *  (HI  +  H2)  H3 
W10  *  H2  +  H3 
Wll  -  H2*H3 
W12  *  H1*H2 

W16  a  (HI  +  H2>Z  +  H3( HI  +  HI) 


where  L  is  set  to  6  and  then  to  statement  4.  If  [DEL)  DELMIT 
control  passes  to  202,  Beginning  with  statement  202,  the  following 
additional  quantities  are  defined: 


XINDEP  «  XINDEP  +  DEL 
W13  =  DEL/ 2.0 
W14  =  DEL3/ 2.0 
W15  =  DEL2/3.0 
W 17  =  HI  +  DEL 
W18  *  HI  +  H2  +  DEL 
W19  *  (HI  +  H2)  DEL 
W29  »  (2HI  +  H2)  DEL 

These  foregoing  factors  are  used  in  the  equations  for  determining  the  array 

of  predicted  values  for  the  integrated  variables,  ZBAR,  1.  e. 


B0(1)  * 


DEL 

W4*W8 


(W14  +  W15*W6  +  W13-HW2  +2.0  H1*W4  +  fll)  +  H1*W6) 


h|»f 
■  I,/  f1  f  l  j 


BUD  =  wio*wi2  {ww  +  W15*W5  +  W13*  W16) 
B2  *  (W14  +  W15*W7  +  W13*H1+W4) 

B3  *  ~|^^h3  <W14  +  W15*W3  +  W13*W8» 


ZBARi  "  (nJ  predicted  *  previous  +  B0(l>  « 


*»X. 


dx  x  *  X. 


BMnuSty 


+  B2(^*) 


x  *  x 


+  B  3(  .-^-^1;  ) 


X  «  X, 
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SUBROUTINE  DEREQ  is  then  called  to  determine  the  N  derivatives 
DERNN  associated  with  the  ZBAR  values  and  XINDEP.  If  L  has  the 
value  6  indicating  an  error,  statement  220  receives  control.  Otherwise, 
the  N  corrected  integrated  values,  VALUEN,  at  point  X4  are  determined 
from 


A  *  ( W14  +  W15*W3  +  W13*W8)  /  (W17*W18) 


AO  n  -  (W 14  +  W15+(W3-DEL)  +  W13*(W8-W29)  -  DEL*W8)/W8 


A1  * 


A2  = 


DEL 


W12«*W17 

DEL 


H2*W1*W18.  '3.0  2.0 

VALUEN  *  (y.)  *  (y.> 


(W 14  +  WIS’HWl  -  DEL)  -  W13*W19) 


.  W 14  HI  *W15  . 

'  m,m  mmrm  f  J 


dy  i 

l'  I 

corrected  previous  x  *X 

x«  x4 


y  ■  y  predicted 


dy*  dy. 

+  A0(— )  M1|J| 

v  a  V  va  v 

3  Z 


dy 

+  A2<-sr> 


**  x. 


Then  DIF  the  difference  'between  the  predicted  and  corrected  value  of  each 
variable  la  evaluated  DIF  »  |  VALUEN  *  ZBAR  | .  This  quantity  Is  then 
tested  against  the  upper  accuracy  bound  apecified  for  this  difference,  UPBND. 


If  the  difference  is  within  the  limit,  control  passes  to  statement  13.  If 
not,  X1NDEP  is  decreased  by  DEL,  then  DEL  is  decreased  by  the  amount 
F ACTOR*DEL  after  which  L  and  LL  are  set  to  1  for  L  <  5.  Then  control 
returns  to  14  to  perform  the  predictor-corrector  calculation  with  the 
new  delta  of  integration  when  L  S  5,  or  control  passes  to  220  for  L  =  6. 
After  the  CONTINUE  statement  13,  which  is  reached  when  the  difference 
DIF  <  UPBND,  control  passes  to  statement  5  if  L  *  2.  For  other  values 
of  L,  the  following  quantities  are  redefined 

H3  ■  H2 
H2  -  HI 
HI  =  DEL 

and  control  passes  to  1 1  for  L  *  1,  to  5  for  L  *  2,  3,  or  4,  or  to  22  for  L  ■  5. 

Statement  22  compares  the  N  values  of  DIF  with  the  specified  lower 
accuracy  bound  DNBND;  if  DIF  €  DNBND,  DEL  is  increased  by  the  amount 
DEL*FACT0R  before  reaching  7010}  if  DIF  >  DNBND,  7010  Is  reached 
directly.  Statement  7010  sends  control  to  statement  6  if  L  <  5,  to  200 
if  L  ■  S,  and  to  220  if  L  *  6.  Statement  200  sets  SAVDEL  *  DEL  then 
■ends  control  to  21, 

Statement  5  marks  the  beginning  of  the  subroutines  output  procedure. 

It  is  followed  by  a  D0  loop  ending  at  1040  which  sets  the  N  elements  of 
the  arrays  VALUE  and  DERN  respectively  equal  to  ZBAR,  the  predicted 
values,  and  DERNN,  the  corresponding  derivatives.  Statement  21  then 

•et*  LL  equal  to  2.  Then  if  L  is  either  1  or  S,  the  N  elements  of  the 
following  arrays  are  defined 


Mnnwwtl  iwwttWHHHtlH  II  f  n 
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DERNM3  =  DERNM2 
DERNM2  =  DERNM1 
DERNMl  =  DERN 
DERN  =  DERNN 
VALUE  =  ZBAR 

before  statement  40  is  reached.  The  code  L  is  again  tested.  If  L  =  1, 
for  a  value  of  LL  =  1  control  passes  to  1407,  but  for  a  value  of  LL  =  2  L 
is  reset  to  2  and  control  passes  to  206.  If  L  =  2,  3,  or  4,  for  LL  =  1 
control  passes  to  206  but  for  LL  =  2  control  passes  to  statement  4.  If 
L  ~  5,  a  value  of  LLS  1  causes  control  to  be  sent  to  statement  12,  but 
LL  =  2  sends  control  to  4.  Following  CONTINUE  statement  206,  a  D0 
loop  stores  the  N  derivatives  DERN  and  the  corresponding  integrated 
values  VALUE  in  the  arrays  SAVD  and  SAVE  respectively.  Then,  if 
LL  is  1,  control  passes  to  12  or  if  LLP  2,  to  statement  4.  Statement 
4  sets  DEL  equal  to  the  saved  value  SAVDEL  and  is  followed  by  statement 
220  where 

NZ  =  N 
LZ  =  L 
ZDEL  *  DEL 
ZXINDE  =  XINDEP 

before  the  return  to  the  calling  program. 
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5. 


Other  Inf ormation 


A.  SUBROUTINE  ADM4RK  is  called  by  SUBROUTINE  VIXEN. 

B.  SUBROUTINE  ADM4RK  calls  SUBROUTINE  DEREQ. 

C.  The  control  parameter  L  may  have  initial  input  values  of  1 
and  -5  only.  It  is  reset  by  ADM4RK  and  should  not  be  modified  by  the 
user.  The  values  2,  3,  4,  and  6  are  those  returned  by  SUBROUTINE 
ADM4RK  under  the  following  conditions. 

1.  L  =  1.  Indicates  initial  pass;  must  be  set  when 
FREQ  and  HLIMIT  testing  is  desired. 

2.  L  =  2.  Indicates  that  a  FREQ  interval  has  been  reached. 

3.  L  =  3.  Indicates  that  HLIMIT  has  been  reached. 

4.  L  3  4.  Indicates  that  HLIMIT  and  FREQ  interval  have 
been  reached  simultaneously. 

3.  L  3  -S.  Indicates  that  return  to  the  calling  program  must 

be  made  after  each  successful  integration  step.  This  will  be  set  to  +  5 
during  the  initial  pass.  No  tests  are  made  for  FREQ  or  HLIMIT. 

6.  L  *  6.  An  error  return  indicating  that  the  integration 
interval  is  less  than  DELMIT. 

D.  Special  care  must  be  taken  in  modifying  any  elements  of  the 
ADM4RK  calling  sequence  during  a  return  to  the  calling  program.  In 
particular,  it  is  impossible  to  modify  any  of  the  variables  calculated 
within  ADM4RK— DEL,  VALUE,  DERN,  XINDEP,  L—  since  the  routine 
saves  its  own  values.  In  addition,  if  L  is  initially  1,  FREQ  must  be 
set  at  least  four  times  as  large  as  the  initial  DEL,  or  no  returns  will 
be  made  before  HLIMIT. 
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3.  1.  3 


..Evaluation  of  Derivative*  for  Trajector 

.  . . . ""  """"JW |l!  ""■llT> w«y»ii»iii.ii in mi  i  n i mi ,11,1,11,,, 

Calculation 


SUBROUTINE  DEREQ  control*  the  computation  el  the 
derivative®  which  are  used  in  determining  the  trajec¬ 
tory.  To  accomplish  this  ta»k,  DEREQ  calls  for  the 
preliminary  calculations,  heating  and  mas*  loss  cal¬ 
culation*  where  required,  angle  of  attack  calculations 
where  required,  the  drag  coefficient  calculation*,  and 
the  calculation  of  the  tran*lational  quantities. 


*  Indicates  Integer  quantity  and  an  N  'DCCUR  number 


Occur /Noccur 

Source  of 

Name 

Symbol 

Number 

fflTlllt 

AlijJ1  v4l» 

ALFTAB,  75 

_  I  t  a  ti  r  IT  A 

Q  \  X  AhD  Lj  Jm4  i 

3646- 

3720 

RE  ADIT 

A  tpi'ir* 

J%K%M 

Ar«l 

001 

BD  1?T  .VKA 

Jr  -tv  J— <  JUlivl 

A  W  REF 

‘'Vref 

168 

READIT 

Cw 

D 

CD 

016 

no  kcx'fh 

xjii/iyvF 

CD  TAB,  75 

CD(  TABLE) 

3383- 

3547 

D  IT  AHTf 

IvJ— Jil/  A  Jii< 

DERIV,  16 

- 

* 

TEQUAT  and/ or 

A  1 A  X  XL 

D  V  AL»  16 

m 

- 

ADM4RK 

HTAB,  75 

2 (TABLE) 

3233- 

3307 

READIT 

1MALPH 

# 

30  * 

READIT 

LAMDA 

A 

032 

ijr  XVJCaJjfEJVL 

1JL 

Am 

ADM4RK  or 

m  “ 

nn  ft  T|tj| 

Jr  Jl\  Jw  XjIXvI 

MAXCD 

m 

18  * 

READIT 

maxwcd 

19  * 

MD0T,  12 

# 

2709- 

2739 

MASSL0 

UtlV  A 
iVtriJ~ti\  Ji 

m 

10  * 

READIT 

Mint 

M  ^ nn 

035 

VIXEN  or 

'rftffrtPI  f|j 
lr  JKxEaXtffXJMl 

Description 


Units 


input  a  table 


degrees 


kT  and/< 


reference  area  of  vehicle 


reference  area  corresponding  to  WCDTAB 

drag  coefficient 

tabular  input  drag  coefficient 

derivatives  with  time  of  quantities  to  be  integrated 

integrated  values  of  variables 

input  tabular  altitude  for  use  with  CD  TAB 

input  angle  of  attack  code 
bluntness 'ratio 

integer  error  code 

input  Cp  code 

input  C_  code 

mass  loss  rate  distribution 

input  mass  loss  code 


free  stream  Mach  number 


ft  *  sec, 


■  IMJ  f-'il  I!  Ill  . 


Name 

Symbol 

Occur/Noccur 

Number 

Source  of 
Input 

M0PT 

03  * 

READIT 

N0SE0P 

m 

05  * 

READIT 

RBD0T 

Rb 

060 

NOSEBL 

RND0T 

R 

n 

059 

NOSEBL 

TWO 

T 

wo 

074 

CHNTBL 

WCDTAB,  75 

C  (TABLE) 

W 

3458- 

3532 

READIT 

WD0T 

W 

086 

T0MAL0 

WHTAB.  75 

Zw(  TABLE) 

3308- 

3382 

READIT 

XBAR 

X 

090 

PRELIM 

XUP 

^UP 

237 

READIT  or 
SR  2490 

- i 

input  heating/ rr 
input  noeeblunt 
rate  of  change  i 
rate  of  change  < 
initial  wall  tem 

tabular  input  dr 

weight  increme 
tabular  altitude 
interaction  pari 
upper  limit  on  i 


ZUSE 


Z 


VIXEN 


altitude 


input  heating/ mass  loss  code 
input  noe e blunting  code 


rate  of  change  of  baee  radius 
rate  of  change  of  nose  radius 


ft/ sec 
ft/ sec 


initial  wall  temperature 


tabular  input  drag  coefficient  increment 


weight  increment  due  to  ablation 
tabular  altitude  corresponding  to  CD 
interaction  parameter 
upper  limit  on  interaction  parameter 


Ibm/aec 


altitude 


i  If1 Pi  lilmW liilfi'  •  Sf  fe,;! 

* 
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•  !  -  I  Pfli'illlSi:  i!  !  tl 
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; 


vindicate*  integer  quantity 


ALPHA 

ALPEIM 

CD 


rvrnfir  u 
UJUaIV,  *o 


GAMP 

XjJL, 

P 

PHI 

tact 

JriPJL 

PSIALP 

Q 


TWSTAG 


Occur/ Noc  cur 
Number 


002 

instantaneous 

003 

instantaneous 

016 

total  drag  coe| 

- 

i 

derivatives  wl 
in  ADM4RK 

026 

m,h,pau,  J 

-  a 

integer  error  t 

043 

angular  velocit 

044 

X 

Euler  axigk> 

045 

Euler  angle,  ^ 

200 

thrust  offset  ail 

050 

angular  velocit 

noee  radius 
angular  value i 


wail  temperatwa 


* 


radian* 


instantaneous  angle  of  attack 
instantaneous  angle  of  attack  radian* 

total  drag  coefficient 

derivatives  with  altitude  of  quantities  being  integrated 


In  ADM4RK 

flight  path  angle  radiane 

Integer  error  code 

angular  velocity  rad/ sec 

Eul„r  an, la.  f  radian. 

Eul.r  angle,  ^  radian, 

thrust  offset  angle  radians 

angular  velocity  rad/sec 

base  radius  II, 

nose  radius  ll, 

angular  velocity  rad/sec 

Skier  angle*  0  ^  radians 

ttxu#  gi  ^  # 

wall  temperature  at  the  stagnation  point  °r 


1 


(initial  weight  *  & 
(initial  weight  -  ^ 
range  distance 


side  range  dlstai 


4.  Numerical  Procedure 


SUBROUTINE  DEREQ  begins  by  setting  the  internal  program 
variable  names  equal  to  their  corresponding  integrated  values,  DVAL, 
from  ADM4RK.  These  are  transferred  from  ADM4RK  as  arguments  of 
SUBROUTINE  DEREQ.  The  variable  names,  their  DVAL  designations,  and 
definitions  are  given  below'. 


Name 

DVAL 

Definition 

V 

1 

velocity- 

GAMF 

2 

flight  path  angle,  negative  number 

TIME 

3 

time 

XR 

4 

component  of  range  in  X  direction 

W 

5 

difference  between  the  initial  weight 

and  weight  loss  due  to  ablation 

RN 

6 

nose  radius 

RB 

7 

base  radius 

PSi 

8 

Euler  angle 

THE ALP 

9 

Euler  angle  ,  (3^ 

PHt 

10 

Euler  angle,  (p 

Q 

11 

angular  velocity,  Q 

SMR 

12 

angular  velocity,  R 

P 

13 

angular  velocity,  P 

YR 

14 

side  range  (component  of  range  in  Y 

due  to  offset  thrust 

PSIALP 

15 

thrust  off  set  angle 

WTH 

16 

difference  between  the  initial  weight 

weight  loss  due  to  thrust. 
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The  altitude  Z  is  set  equal  to  ZUSE,  an  argument  of  DEREQ, 
and  TIME  is  set  equal  to  TIMER.  If  Z.  is  less  than  zero,  control  passes 
to  statement  2  where  an  error  message  is  printed  out,  the  error  code, 

LL,  set  to  6,  and  control  returned  to  ADM4RK.  If  Z  is  greater  than 
zero,  SUBROUTINE  PRELIM  is  called  to  perform  preliminary  calcula¬ 
tions  of  geometric,  flow  field,  and  thrusting  parameters.  If  the  error 
code  LL  is  set  to  6  in  SUBROUTINE  PRELIM,  control  is  returned  to 

ADM4RK.  Otherwise,  the  quantity  MINF  is  tested;  if  MINF,  M  is 

|0  9 

less  than  5.  u,  the  LL  is  set  to  6,  an  error  message  printed, and  control  ' 

passes  to  ADM4RK.  If  MINF  >  5.  0,  control  passes  to  statement  20, 

where  LAMDA,  A  ,  is  tested.  If  LAMDA  <  0.  6,  control  passes  to 

statement  22;  if  not,  the  error  code  LL  is  set  to  6,  an  error  message 

printed,  and  control  returns  to  ADM4RK.  Following  statement  22,  X 

is  tested  against  «Xup.  Since  heating  and  mass  loss  calculations  are 

performed  only  in  the  continuum  flow  regime  or  in  the  region  of  fairing 

between  continuum  and  strong  interaction  flows,  if  jf  <  Jf  ,  control 

up 

passes  to  statement  3  the  beginning  of  the  mass  loss  blocfc.  If  >  X 
the  wall  temperature  at  the  stagnation  point  is  set  to  Tw  ,  and  the 
mass  loss  rates  is  used  in  DRAGC0  as  well  as  the  derivatives  pertaining 
to  mass  loss  and  shape  change  are  zeroed  in  the  group  of  equations 
starting  with  statement  8.  Then  control  passes  to  statement  4  bypassing 
the  mass  loss  calculations. 

The  block  of  mass  loss  calculations  begins  with  the  testing  of  the 
input  code  M0PT  in  statement  3.  If  M0PT  equals  zero,  control,passes 
to  statement  8  where  the  pertinent  quantities  and  derivatives  are  zeroed 
before  passing  to  statement  4.  If  M0PT  f  0,  SUBROUTINE  AER0DY 
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is  summoned  to  compute  the  aerodynamic  heating  along  the  body.  Then, 
if  the  input  option  code  MHEAT  equals  zero,  control  passes  to  statement 
8.  If  MHEAT  f  0,  the  mass  loss  calculations  continue  with  the  calling 
of  SUBROUTINE  MASSL0  which  controls  the  calling  of  SUBROUTINE 
EVIL,  where  the  mass  loss  rates,  surface  recession  rates,  and  wall 
temperature  are  calculated.  The  mass  loss  rates  are  integrated 
in  SUBROUTINE  T0MAL0  to  obtain  WD0T,  the  rate  of  change  in  weight 
due  to  ablation  of  the  vehicle  heatshield.  Then  DERIV(5)  is  set  equal  to 
WD0T.  If  input  option  code  NDSE0P  equals  1,  control  passes  to  state¬ 
ment  7  and  the  shape  change  calculations.  If  N0SE0P  f  1,  the  derivatives 
of  the  nose  radius  and  base  radius,  DERIV(6)  and  DEPIV{7)  repectively, 
are  zeroed,  before  control  passes  to  statement  4.  Statement  7  calls 
SUBROUTINE  N0SEBL  to  perform  the  shape  change  calculation,  then 
DERIV(6)  and  DERIV(7)  are. respectively  set  equal  to  RND0T  and  RBD0T 
before  statement  4  is  reached. 

After  statement  4,  input  option  code  INALPH  is  tested.  If  INALPH, 
number  of  values  in  the  input  angle  of  attack  table,  is  greater  than  zero 
control  passes  to  statement  17.  There  and  are  set  equal  to  a 

value  determined,  musing  FUNCTION  TABLE,  by  linear  interpolation  of 
the  input  angle  of  attack,  ALPTAB,  as  a  function  of  HTAB*  altitude  and 
the  time  derivatives  8  through  13  for  rotational  angles  and  velocities  are 
zeroed  Just  before  statement  18.  If  INALPH  *  0,  SUBROUTINE  ROTATE 
is  called  to  calculate  angle  of  attack  effects,  if  any.  If  the  error  code  LL 
is  set  to  6  by  R0TATE,  control  returns  to  ADM4RK;  otherwise,  control 
passes  to  statement  18. 
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Following  statement  18,  the  integer  code  MAXCD,  the  number  of 
values  in  the  CDTAB  table,  is  tested;  if  MAXCD  =  0,  SUBROUTINE 
DRAGC0  is  called  to  compute  the  drag  coefficient  before  control  passes 
to  statement  14,  If  .vlAXCD  ^  0,  control  passes  to  statement  13,  where 
CD  is  determined,  using  FUNCTION  TABLE,  by  linear  interpolation  of 
the  input  table  CDTAB  as  a  function  of  altitude  HTAB,  before  reaching 
statement  14,  The  quantity  MAXWCD,  the  number  of  WCDTAB  values 
input,  is  tested  after  statement  14;  if  MAXWCD  =  0,  control  passes  to 
statement  15.  If  MAXWCD  f  0,  the  increment  in  the  drag  coefficient 
WIRE  CD,  is  determined  from  a  linear  interpolation  of  input  table  WCDTAB 
as  a  function  of  WHTAB,  This  increment  is  corrected  by  the  ratio  of  the 
reference  areas  and  added  to  the  drag  coefficient  obtained  either  from 
DRAGC0  or  from  the  input  table,  CDTAB. 


CD  a  CD  =  CD  +  WIRECD  * 


AWREF 

AREF 


Statement  15  precedes  the  calling  of  SUBROUTINE  TEQUAT  which 
evaluates  the  time  derivatives  of  the  particle  trajectory  and  thrusting 
variables,  DERIV(1  2,4)  and  DERXV(14‘-16),  and  the  derivative  of  time 
with  altitude,  DERIV{3).  The  derivative  of  time  with  altitude,  dt/dz, 
is  used  as  a  multiplier  for  redefining  the  15  time  dependent  derivatives  to 
make  them  altitude  dependent  before  the  return  to  ADM4RK  where  the 
integration  is  performed. 
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Other  Information 


A.  SUBROUTINE  DEREQ  is  called  in  by  SUBROUTINE  ADM4RK, 


B.  SUBROUTINE  DEREQ  calls  in  the  following  subprograms: 


1.  SUBROUTINE  PRELIM 


2.  SUBROUTINE  AER0DY 


3.  SUBROUTINE  MASSL0 


4.  SUBROUTINE  N0SEBL 


5,  SUBROUTINE  T0MAL0 


6.  SUBROUTINE  R0TATE 

7.  SUBROUTINE  DRAGC0 


8.  SUBROUTINE  TEQUAT 


9.  FUNCTION  TABLE 
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3.  1, 4 _ Preliminary  Calculations 


The  preliminary  calculations  of  aerodynamic  coefficients, 
additional  geometric  parameters,  flow  properties  in  the 
free  stream,  and  certain  edge  properties  are  carried  out 
by  SUBROUTINE  PRELIM.  In  performing  these  computa¬ 
tions,  PRELIM  employs  FUNCTION  TABLE  to  do  inter¬ 
polation  ifi  certain  tables,  SUBROUTINE  ARFDT2  to  call 
in  the  calculation  of  the  1962  Standard  Atmosphere  of 
SUBROUTINE  COMP62,  and  SUBROUTINE  LNTERP  which 
is  used  to  interpolate  in  the  table  of  input  atmospheric 
properties. 
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1.  Furpoae 


SUBROUTINE  PRELIM  performs  preliminary  calculations  of 

geometric,  flow  field,  and  thrusting  parameters  for  use  in  calculating 

derivatives  of  quantities  to  be  integrated.  The  subroutine  may  be 

divided  into  the  following  sections:  (1)  geometric  definitions,  (2) 

aerodynamic  coefficients  Cn  ,  C  ,  X  / D,  and  C  ,  (3) 

a  ma  CP  q 

atmosphere  free  stream  quantities,  (4)  wind  tunnel  quantities,  (5) 
thrusting  quantities,  (6)  stagnation  and  edge  properties,  (7)  definition 
of  transition  altitude,  (8)  definition  of  specific  heats,  (9)  calculation 
of  %  and  ,  (10)  calculation  of  weight  increments. 


^indicates  Integer  quantity  and  N0CCUR  number  code, 


- o^n^; - sss^nsi - 1 

Name  Symbol  Number  Input  DeacriptJ 


A,  514 

Ai 

301- 

814 

ZPRS 

curve  fit  con 

AE 

A 

e 

214 

READIT 

thrusting  noz 

AS0UND 

aoo 

■» 

ARFDT2  or 
LNTERP 

i 

speed  of  soui 

CMQIN 

cm 

mq 

196 

CHNTBL 

input  Cm  fo 

9 

C0DLAM 

094 

F123 

numerical  £a< 

C0ST 

cos  0 

008 

CHNTBL 

cosine  cone!  t 

CPSZET 

ccr  y>>. 

f 

216 

F123 

cosine  of  thr 

CTHZET 

cos  9^ 

215 

F123 

cosine  of  thri 

DELY 

AY 

219 

F123 

component  of 

DELZ 

Az 

220 

F123 

component  of 

DNBNDZ 

248 

READIT 

lower  altitude 

G 

g 

027 

SR2490  or 
READIT 

atmosphere 

facto?  to  com 

GAMMA 

y 

028 

SR  2490  or 
READIT 

ratio  of  spec 

IATM0S 

08  *  * 

mPAFlTTP11 

4\JELi/UhIX  X 

ntmnin 
inpul  ttMilllWjP* 

IKCMQ 

09  * 

n  IT  ATYIT 

XV  XLxaUX  X 

input  Cm  oi 

tTUD CT 

A  X  JW.O  X 

23  * 

READIT 

number  of  ya 

XiJit 

La 

033 

PRELIM 

.  1 

instantaneous 

hAUOA 

A 

032 

'EltfWf'  VlJ 

Jr  J\  Ju  UaJVl 

instantaneous 

* 
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*rce  of 
Input 


Description 


Value 

Preset 


Unit 


u 
1 

I 

tPRS 

Mi  *(  Jt  V  W 

.EAD1T 

tRFDT2  or 
i-NTERP 

:hntbl 

'123 

:hntbl 

123 

’123 

;123 

123 

EADIT 
R2490  or 

r*  ATlTT 

R2490  or 
EADIT 

f  Aninp 
EADIT 
EADIT 
RELIM 
RELIM 


curve  fit  constants 

thrusting  nozzle  exit  area 

speed  of  sound  in  atmosphere 
input  Cmq  for  current  configuration 
numerical  factor  used  to  calculate  C0DRAG 
cosine  cone  half  angle 

cosine  of  thrust  angular  misalignment  component 

cosine  of  thrust  angular  misalignment  component 

component  of  linear  thrust  offset 

component  of  linear  thrust  offset 

lower  altitude  boundary  on  use  of  input 
atmosphere 

factor  to  convert  slugs  to  lbs.  mass  32.174 

ratio  of  specific  heats  1,4 

input  atmosphere  option  code 

input  Cm^  option  code 

number  of  values  in  thrust  table 

instantaneous  axial  length 

instantaneous  bluntness  ratio 


ft/sec 


2 

lbm/ft 


ft. 

ft. 

ft. 

ft/ sec  2 


ft. 


I 


■MmIhiiw  Mil 


. . . 


2,  Input  (Cont'd) 


Occur /Noccur 

Source  of 

] 

Name 

Symbol 

Number 

Input 

Descriptid 

_ !_j 

- 

SP2490  or 

L0PT 

07  * 

READIT 

trajectory  option  c 

MAX TAB 

04  * 

CHNTBL 

number  of  values  i 

current  configurat 

MINF 

M 

00 

035 

VIXEN 

freestream  Mach  i\ 

NTHRST 

22  * 

READIT 

thrusting  option  co 

PI 

TV 

042 

SR 2490 

mathematical  cons 

PT0TAL 

TOTAL 

245 

VIXEN  . 

1 

total  pressure  in  ii 

057 

SR2490  or 

gas  constant  I 

R 

R 

READIT 

RB 

Rb 

053 

DEREQ 

instantaneous  base! 

RESINT 

(•in  0)  * 

054 

CHNTBL 

inverse  of  sine  of  < 

REYINF 

Reyot 

244 

VIXEN 

free  stream  Reynoi 

RH0 

fim 

LNTERP  or 
ARFDT2 

free  stream  densif 

RN 

Rn 

052 

DEREQ 

instantaneous  nose 

SINT 

•in  0 

064 

CHNTBL 

sine  of  cone  half  ai 

SPSZET 

■in 

218 

F123 

sine  of  thrust  angu 

*1 

SQC0ST 

1 

(cos  8)^ 

066 

CHNTBL 

square  of  cosine  oi 

1  a 

STHZET 

sin  0£ 

217 

F123 

sine  of  thrust  angu 

TABRH0,  50 

yoj  TABLE) 

3771- 

3820 

p  IT  AlOTT 

input  atmosphere  d 

TABSND,  50 

4. 

(TABLE) 

3821- 

3870 

READIT 

input  atmosphere  s 

i 


I 


IMitaMttHMM 


Description 


Preset 

Value  Units 


trajectory  option  code 

number  of  values  in  X  ID,  I,  I  table  for 

eg  x 

current  configuration 
freestream  Mach  number 

thrusting  option  code 

mathematical  constant 

total  pressure  in  free  stream 

gas  constant  53,  5 

instantaneous  base  radius 
inverse  of  sine  of  cone  half  angle 
free  stream  Reynolds  number  per  inch 
free  stream  density  in  atmosphere 
instantaneous  nose  radius 
sine  of  cone  half  angle 

sine  of  thrust  angular  misalignment  component 

square  of  cosine  of  cone  half  angle 

sine  of  thrust  angular  misalignment  component 

input  atmosphere  density 

input  atmosphere  speed  of  sound 


lb/ft2 

ft-lb 

lbm°R 

ft. 

1/in. 

lbm/ft3 

ft. 


lb  ml  ft3 
ft/sec 
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2.  Input  (Concl'd) 

Occur/woccur  Source  of 


Name 

Symbol 

Number 

Trimit 

VI  * 

j 

TAB  Z,  50 

Z ( TABLE ) 

994- 

1043 

READIT 

X 

altitude  func 
current  coni 

T  ANT 

TAN  9 

070 

CHNTBL 

4*  0  *%  or aa  f* 4*  nr  /**  t 
LciilgJ  0 11 X  OX  C  \ 

TBATMZ,  50 

Z  (TABLE) 

3721- 

3770 

READIT 

input  atmot] 

THO 

Tho 

207 

READIT 

reference  tl 

TUnpT  *V  IE 

X  XTUL7  mmd  J  A  p 

At  (TABLE) 

3618- 

3642 

READIT 

change  in  tit 
of  THTHO,  ( 

THDELZ,  25 

AZ  (TABLE) 

3593- 

3617 

READIT 

change  in  al 

Ox  I  XI  x  Ho  |  4 

TWIT  T  A 
x  rusj  x  xv 

0 

f  76 

CHNTBL 

cone  half  an] 

THE TAD 

®D 

069 

CHNTBL 

cone  half  anj 

THTHO,  25 

Th/Th  (TABLE) 

0 

3568- 

3592 

READIT 

non -dimens  i 

TIMER 

t 

080 

VIXEN  or 
DEREQ 

time 

T0FF 

‘off 

209 

READIT 

time  for  thri 

T0N 

t 

on 

208 

READIT 

time  for  thn 

TRZTR 

Z 

tv ant. 

243 

READIT 

input  transit 

TW,  32 

TVj 

2644- 

2675 

CHNTBL  or 
MASSL0 

wall  tempers 

TXCGD,  50 

X  /D  (TABLE) 
eg 

844- 

893 

CHNTBL 

X  7  D  table 
eg 

UPBNDZ 

247 

p  t?  AHTT 

Xv  X-a  xVXJX  x 

upper  altitud 

V 

V 

082 

DEREQ 

option 

velocity 

W 

w 

084 

DEREQ 

initial  weigfy 

WTH 

w„,„ 

TH 

204 

nfDPA 

JLr  JE-j  XV  £iVhI 

initial  weigh 

Z 

Z 

091 

DEREQ 

altitude 

Z0FF 

Zoff 

206 

READIT 

altitude  for  t: 

Z0N 

Z 

on 

205 

READIT 

altitude  for  t: 

*1"* . PI m  w-mh^'w^ . .  |i  mum an  4 ■. mil «i|iii|[i  »ihi>  . M.m iwl mi  11 11  11 i]ii[niH  'iiapiapipa«twy*# 


f 

IHIIMIwIHINIIMIIoUIiWIIiHIImIhhIIIIHIIII'IIIIMIIm . mi . . . . . . . . . mHiiJhii  i  hi* . . . „ . 1  „„  . . . . 1i1u„,.,„„h . . ... . .  ,  * 

ft  Of 

it 

Description  ^Vaiue 

Units 

, 

s 

)IT 

i 

altitude  function  for  X  /D,  I,  I  table  for 
current  configuration  x 

ft. 

’BL 

tangent  of  cone  half  angle 

(it 

input  atmosphere  tabular  altitude 

ft. 

IT 

reference  thrust 

IT 

change  in  time  from  t  for  tabular  input 

of  THTHO,  (t  -  t  )  °n 
on 

sec 

i 

IT 

change  in  altitude  from  Zon  tabular  input 

of  THTHO,  Znn  -  Z) 
on  ' 

ft. 

BL 

cone  half  angle  for  current  configuration 

radians 

T 

Dii 

cone  half  angle  for  current  configuration  in  degrees 

degrees 

IT 

non-dimensional  thrust  table 

'J  or 

time 

Q 

sec. 

IT 

time  for  thrust  Shut  off 

sec, 

IT 

time  for  thrust  onset 

sec. 

IT 

input  transition  altitude 

ft. 

BL  or 

wall  temperature  distribution  along  body 

o_ 

R 

3L 

X  /D  table  for  current  configuration 

:t 

upper  altitude  bound  for  use  of  input  atmosphere 
option 

ft. 

a 

velocity 

ft/ sec 

3 

initial  weight  ,  < A  wei8ht>ablation 

lb. 

i 

2 

initial  weight  -  (^weight).  -  V 

thrust 

lb. 

1 

altitude 

it. 

T 

altitude  for  thrust  shut  off 

ft, 

*r 

altitude  for  thrust  onset 

ft. 
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3.  Output 

*  indicates  integer  quantity  and  N OCCUR  number  code  number 


Occur/Noccur 

* 

Name 

Symbol 

Number 

Descri 

AREF 

A  / 
ref 

001 

reference  ai 

CAPL 

L 

010 

sharp  cone  t 

CMALP 

C 

m  a 

013 

partial  deri^ 

CMQ 

C 

mq 

020 

* 

damping  in  f 

CNALP 

C 

n  a 

012 

partial  deriv 

CODRAG, 

009 

numerical  fa 
in  rarefied  f 

COSLAM 

\  cos  0 

011 

product  of  bl 

CPE 

C 

Pe 

017 

constant  pre 
cone  boundai 

CPW 

CPw 

018 

constant  pre 

D 

D 

021 

base  dlamet* 

DELW 

Aw 

097 

total  weight 

DELW2 

Aw2 

226 

total  weight 

DELW3 

Aw3 

227 

total  weight 

HS 

H 

8 

031 

stagnation  ei 

HSR  TO 

H  /RT 

6  0 

029 

non-dimensi 

HWBAR 

K 

225 

non-dimensi! 

L  A 

La 

033 

instantaneoU 

LAMDA 

A 

032 

instantaneoq 

LP 

error  cod* 

Description 


Units 


reference  area  -  area  of  vehicle  base  ft^ 

sharp  cone  slant  length  ft. 

partial  derivative  of  moment  coefficient  with  a 
damping  in  pitch 

partial  derivative  of  normal  force  coefficient  with  a 

numerical  factor  used  in  DRAGC0  for  drag  calculations  ft. 
in  rarefied  flow 

product  of  bluntness  ratio  and  cosine  of  cone  half  angle 


constant  pressure  specific  heat  at  edge  of  the  sharp  Btu 

cone  boundary  layer  lbm-°R 

constant  pressure  specific  heat  at  wall  - 

lbm  -  °R 

base  diameter  ft, 

total  weight  change  lb. 

total  weight  change  due  to  ablation  lb. 

total  weight  change  due  to  thrusting  lb. 

stagnation  enthalpy  Btu/ lbm 

non-dimensional  etagnation  enthalpy 
non-dimensional  wall  enthalpy 

instantaneous  axial  length  ft. 

instantaneous  bluntness  ratio 
error  code 
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3,  Output  (Cont'd) 


M 

m 

ME 

M 

e 

MINF 

M 

MUE 

>4e 

MUINF 

MUW 

V«. 

MX 

M 

X 

MY 

M 

y 

MZ 

M 

z 

PE 

P 

e 

PINF 

P 

oo 

PINFPS 

p»/p. 

PS 

p 

a 

QD 

qa 

REYL 

Rey 

°°L 

RHOE 

fc 

rhOini 

037 

vehicle  no 

036 

Mach  nun 

035 

Free  strt 

viscosity^ 

034 

free  strea 

viscosity 

210 

thrusting 

211 

thrusting 

212 

thrusting 

048 

pressure 

049 

free  strea 

046 

ratio  of  ft 

047 

stagnation 

051 

dynamic  p 

062 

free  strea 
slant  leng 

061 

density  at 

056 

free  strea 

Description 


Units 


vehicle  mass 

Mach  number  at  edge  of  sharp  cone  boundary  layer 

Free  stream  Mach  number 

viscosity  at  edge  of  sharp  cone  boundary  layer 

free  stream  viscosity 

viscosity  at  wall 

thrusting  moment  about  x  axis 

thrusting  moment  about  y  axis 

thrusting  moment  about  z  axis 

pressure  at  edge  of  sharp  cone  boundary  layer 

free  stream  pressure 

ratio  of  free  stream  pressure  to  stagnation  pressure 
stagnation  pressure 
dynamic  pressure 

free  stream  Reynolds  number  based  on  sharp  cone 
slant  length 

density  at  edge  of  sharp  cone  boundary  layer 
free  stream  density  in  lbm/ft3 


•lugs 


lbm 

ft-sec 

lbm 

ft-sec 

lbm/ft 

ft- lb 

ft-lb 

ft-lb 

lb/ft2 

lb /ft2 


lb/ft2 

lb/ft2 


lbm/ft3 

lbm/ft3 


► 
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3.  Output  (Concl'd) 


Occur/Noccur  1 

Name  Symbol  Number  Descrl 


rhOinf 

Pm 

055 

free  stream  den 

s 

S 

198 

total  surface  die 
point  to  maximu 

SINTM 

3V1  sin  8 

Oo 

067 

product  of  free 
half  angle  i 

TBMAT,  3 

T  ,  T  ,  T 
x_  V  z 

B  yB  B 

3643- 

3645 

components  of  tl 
system 

TE 

T 

e 

079 

temperature  at  < 

r-p  ft 

i  rl 

Th 

201 

total  thrusting  fc 

THINF 

Th 

oo 

213 

thrusting  force  i 

TINF 

T 

no 

072 

free  stream  tem 

VE 

V 

e 

083 

velocity  at  edge 

WT0TAL 

W 

TOTAL 

228 

instantaneous  to 

XBAR 

X 

090 

viscous  interact 

XBAR1 

Xi 

126 

rarefaction  parq 

XBARST 

-X  8 1 

089 

numerical  factoi 

XCPD 

X  /D 

c.  p. 

088 

axial  distance  fr 
pressure  non-di 

ZTR 

z 

092 

transition  altitu; 

tr 


•'III . M« . . . . . . 
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Description 


Units 


„  3 

free  stream  density  in  slug/ft 

total  surface  distance  along  vehicle  from  stagnation 
point  to  maximum  diameter 

product  of  free  stream  Mach  number  and  sine  of  cone 
half  angle 

components  of  the  thrusting  force  in  body  coordinate 
system 

temperature  at  edge  of  sharp  cone  boundary  layer 
total  thrusting  force 
thrusting  force  in  vacuum 
free  stream  temperature 

velocity  at  edge  of  sharp  cone  boundary  layer 
instantaneous  total  weight  of  vehicle 
viscous  interaction  parameter 
rarefaction  parameter 

numerical  factor  used  in  rarefaction  parameter 

axial  distance  from  stagnation  point  to  the  center  of 
pressure  non-dimensionalized  by  base  diameter 

transition  altitude 


3 

slug/ft 

ft. 


lb. 

°R 

lb. 

lb. 


ft/ sec 


lb. 


ft. 


i 


i 


4.  Numerical  Procedure 


SUBROUTINE  PRELIM  begins  calculations  with  the  geometric 
definitions  of  reference  area  surface  distance,  base  diameter,  bluntness 
ratio,  axial  length,  sharp  cone  slant  length,  etc.  for  the  instantaneous 
configuration.  It  then  proceeds  to  calculate  Newtonian  values  for  C 


and  C 


using  the  input  tabular  value  of  Xc.g/D.  If  C  is  positive 


111  a<  •< 

an  error  message  is  printed,  LP  is  set  equal  to  6  and  control  returns  to  the 

calling  subroutine.  If  Cm^  <  0,  the  quantity  X  /D  is  calculated.  A 

test  is  made  on  the  input  C  option  code,  IKCMQ,  which,  if  greater  than 

q 

zero,  causes  control  to  pass  to  statement  43  where  CMQ  is  set  equal  to 
the  input  quantity.  If  IKCMQ  is  zero,  CMQ  is  set  equal  to  the  value 
calculated  from  Newtonian  equations,  then  control  goes  to  statement  44 
circumventing  statement  43.  Input  code  L0PT  is  tested;  if  equal  to  4, 
control  goes  to  statement  79  for  wind  tunnel  option  calculations,  other¬ 
wise,  it  continues  with  the  atmosphere  calculations. 


The  input  code  IATM0S  is  tested.  If  IATM0S  equals  zero  the 

SUBROUTINE  ARFDT2  is  called  in  to  define  the  free  stream  density 
3 

RH0,  in  slugs /ft  and  speed  of  sound,  AS0UND,  inft/sec.  Then 

the  control  goes  to  statement  48.  If  IATM0S  is  greater  than  zero, 

which  means  that  the  input  atmosphere  option  is  exercised,  control 

goes  to  statement  47  and  SUBR0U TINE  LNTERP  is  called  in.  SUBROUTINE 

LNTERP  defines  the  quantities  RH0  and  AS0UND  from  input  atmosphere 

tables  when  DNBNDZ  <  Z  <,  UPBNDZ  or  by  calling  in  SUBROUTINE 

ARFDT2,  if  Z  f.s  outside  the  range.  Following  statement  45  there  are 

free  stream  flow  properties  defined, then  control  goes  to  statement 

89,  bypassing  the  wind  tunnel  calculations. 


Following  statement  79,  the  tree  stream  flow  properties 
and  the  velocity  are  calculated  from  the  input  wind  tunnel  conditions. 
Statement  89  follows  these  calculations  and,  if  L0PT  is  greater  than 
or  equal  to  3,  which  indicates  use  of  input  trajectory  or  input  wind 
tunnel  option,  control  passes  to  statement  16.  If  the  trajectory  is 
being  calculated,  L0PT  of  0.  1,  or  2,  the  quantity  NTHRST,  which 
corresponds  to  the  input  quantity  NTHRUST,  is  tested.  If  NTHRST 
is  equal  to  zero,  the  thrusting  calculations  are  bypassed  and  control 
passes  to  statement  16.  Otherwise,  the  directed  G0  T0  statement 
passes  control  to  statement  11  if  NTHRST  =  1,  then  thrust  is  function 
of  altitude,  or  to  statement  12  if  NTHRST  =  2,  then  thrust  is  a  function 
of  time. 

In  statement  11,  if  the  instantaneous  altitude,  Z,  is  >  Z0N 
+  .  0001  ft.  ,  control  passes  to  statement  16.  If  not,  Z  is  tested 
against  Z0FF,  where  if  Z  <  Z0FF  control  passes  to  statement  13? 
otherwise  the  free  stream  thrust  is  read  in  from  tabular  input  as  a 
function  of  the  altitude,  the  printing  codes  JJTHR  and  KKTHR  are 
defined,  and  control  passes  to  statement  14,  In  statement  12,  if  the 
instantaneous  time,  TIME,  <  T0N  +  1.0  D-4,  control  passes  to 
statement  16,  If  not,  TIME  is  tested  against  T0FF,  where  if 
TIME  >  T0FF  control  passes  to  statement  13,  if  not,  the  free  stream 
thrust  is  read  in  from  tabular  input  as  a  function  of  time,  the  printing 
codes  JJTHR  and  KKTHR  are  defined. 

Statement  14  continues  the  calculating  of  the  thrusting  parameters 
by  correcting  the  thrusting  force  for  back  pressure,  resolving  the 
thrusting  force  into  components  in  vehicle  body  coordinate  system, 


and  calculates  the  moments  it  produces  before  passing  control  to 
statement  10. 

Statement  13  tests  the  printing  code  JJTHR,  which  if  non¬ 
zero  causes  control  to  pass  to  statement  16.  If  JJTHR  is  zero, 
which  occurs  only  at  the  first  altitude  or  time  encountered  after 
thrust  shutoff  altitude  or  time,  the  message  indicating  shutoff  time 
and  altitude  is  printed  out,  then  JJTHR  is  set  equal  to  1.  The 
group  of  equations  following  statement  16  zeroes  out  the  components 
of  the  moment  and  thrusting  force  body  coordinate  system,  the 
thrusting  forces,  and  the  printing  code  KKTHR  when  the  thrusting 
option  is  not  utilized  or  the  thrust  has  been  shutoff. 

Statement  10  is  the  start  of  the  calculations  for  stagnation 
enthalpy,  stagnation  pressure,  free  stream  dynamic  pressure,  and 
sharp  cone  edge  properties.  The  calculations  are  straightforward 
with  the  exception  of  the  evaluation  of  Te/T^  ,  that  is  TETINF: 


If  M  sin  9  <  5.7 

oo 

If  M  sin  6  >  5.7 

o» 


Te 

r 


*  1.  +  M  sin  0  (.  0966  +  .  2267  M  sin  9) 
oo  oo 

2  4 

=  Z  Z  An.  ,  „  , 

KK*0  11=0  90  +  11  5KK 


(hi  sin  9)U 

W 


Poo 

'  2116. 


KK 

) 


The  quantity  TRZTR  is  then  tested  and  if  non-zero,  the  transition 
altitude  ZTR  is  set  equal  to  input  TRZTR  and  control  skips  to  statement 
45,  If  TRZTR  is  equal  to  zero,  control  passes  to  statement  46  where 
the  following  equations  are  used  to  evaluate  ZTR* 
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TEMJ 


TEMJ  = 

TEMI  = 

(L)IJ 

<e>  ,u 

if 

8^ 

<  15.° 

D 

(15.  )n 

if 

D 

0D 

v  < 

i—1 

o 

TEML  * 

A 

if 

A 

V- 

<0.3 

0.  3 

if 

A 

>  0.3 

ZTR 


2 

•  2 
JJ=0 


1 

2 

11=1 


1 

2  A 
11=0  300 


+  JJ  +  3 II  +  6KK 


(TEMJ)  (TEMI)  (TEML)KK 


These  calculations  are  followed  by  statement  45.  Then  the 
flow  regime  index  J  is  defined  as  follows: 

Z  >  ZTR  J  =  2  laminar  flow 

Z  >  ZTR  J  =  3  turbulent  flow 


These  are  used  to  indicate  the  appropriate  value  of  TW(J,  8),  the  sharp 
cone  value  at  maximum  diameter  point,  which  is  used  in  the  equations  for 
Cp  ,  H  »  n  ,  and  c  .  The  specific  heat  at  constant  pressure  is 

then  calculated  for  the  edge  of  boundary  layer  conditions  and  for  the 
wall  conditions,  under  the  following  restrictions: 


T  >  5000.  C  *  A...  +  A.  ,,  T 

e  pe  111  112  e 


Tw(J,8)>  5000.  Cpw  =AH1  +  A112  Tw(J,8) 


700.  <  Te  <  5000.  Cpe  *  2 q 


,U 


700.  <  TwU,8)<  5000.  0^  -  2  A,  <T JU.8|» 

'  w  II  *  0 


II 
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are  defined.  These 


* 


T  <  700.  C  -  u. 2398 

e  P* 


T  ( J,  8)  <  700  C  =  0.  2398 
w  Pw 


Next  the  dimensionless,  H  and  the  viscosity  are  defined.  These 

w  w 

are  followed  by  the  evaluation  of  jL  and  Xj«  the  viscous  interaction 
parameter  and  the  rarefaction  parameter,  respectively. 

If  L0PT  is  not  equal  to  3,  the  weight  increments  due  to  ablation  - 
DELW2,  thrust  -  DELW3,  the  sum  of  these  -  DELW,  and  the  total  weight 
are  calculated,  then  W-pQTAL  *s  tested  to  ensure  that  it  has  a  positive, 
muiTzero  value.  If  ^tqTAL^  ®  then  calculations  are  terminated 
and  a  warning  message  printed  out.  If  L0PT  equals  3,  control  skips  to 
statement  91,  where  for  all  L0PT  M  is  defined. 


5.  Other  Information 

A.  SUBROUTINE  PRELIM  is  called  by  either  SUBROUTINE 
VIXEN  or  SUBROUTINE  DEREQ. 

B.  SUBROUTINE  PRELIM  calls  in  the  following  other  program 
subroutines  and  function 

1.  SUBROUTINE  ARFDT2 

2.  SUBROUTINE  LNTERP 

3.  FUNCTION  TABLE 

C.  SUBROUTINE  PRELIM  calls  in  the  following  library  functions: 

1.  DSQRT 

2.  FDXPD 

3.  FDXPI 


* 


<* 
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SUBROUTINE  ARFDT2  calls  in  the  SUBROUTINE  C0MP62,  which 
performs  calculations  to  obtain  the  free  stream  density  and  sound  speed 
for  the  1962  Standard  Atmosphere,  and  changes  the  units  of  the  density 
output  of  C0MP6  2. 


2.  Input 

Source  of 

Nana® 

Symbol 

Input 

Description 

Unite 

AS0UND 

*» 

COMF62 

free  stream  speed  of  sound 

It/ etc. 

H 

Z 

LNTERP  or 
PRELIM 

altitude  for  which  free  stream 

ft 

conditions  to  be  determined 

P 

P 

• 

C0MP62 

free  efream  pressure  divided 
by  sea  level  value 

dimensionless 

RH0 

Pm 

C0MP62 

free  atream  density  divided  by 

dimensionless 

w 

sea  level  value 

mp 

X. 

Tm 

C0MP62 

free  «tream  temperature 

% 

tk% 

3,  Output 

■ 

ASDUND 

a  m 

free  atream  epeed  of  eound 

Jtl Sk  £  MM  A  MM 

It#  **c 

RH0 

a  „ 

free  stream  density 

■  tops /ft3 

4,  Numerical  Procedure 


SUBROUTINE  ARFDT2  seta  the  quantity  RH0O,^>o,  equal  to 
0.  0023769  which  is  the  sea  level  density  in  slugs  per  cubic  foot.  Then 

SUBROUTINE  C0MP62  is  called  for  the  altitude  H  to  calculate  the  free 
,  p  T  .  of  the  1962  Standard 

stream  properties  —  a m*Pm*  p#e  '  •• 

Atmoaphera.  Tha  non-dlm.n.lo«.l  Ira.  atr.am  d.nait,  obtained  Iron. 
C0MP62I. mdtipliad  by  />„  .0  obtain^..  IM  in  onit.  of  ah*.  P«r 
cubic  foot,  before  the  return  to  the  calling  subroutine. 


A.  SUBROUTINE  ARFDTZ  may  be  called  by  either  SUBROUTINE 
PRELIM  or  SUBROUTINE  LNTERF. 


B.  SUBROUTINE  ARFDTZ  call*  in  SUBROUTINE  COMP62 


SUBROUTINE  COMP62 


1.  Purpose 

« . MimaJU.WM.IPWM. 


SUBROUTINE  COMP62  computes  the  non-cJmensional  density 
and  pressure,  temperature  in  degrees  Rankine,  and  the  speed  of  sound 
in  feet  per  second  for  the  1962  standard  atmosphere. 
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Name 


Source 

of 

Input 


Description 


Units 


Symbol 


H  Z  ARFDT2  altitude 


ft. 


3.  Output 

AS0UND 

aee 

sound  speed  in  free  stream 

P 

VP0 

non-dimensional  free  stream 
pressure 

RH0 

JVj> 

non-dimensional  free  str  .& m 
density 

t 

x  CO 

free  stream  ambient  temperature 

4,  Numerical  Procedures 


SUBROUTINE  COMP62  has  the  following  26  value  data  tables  stored 
for  use  in  calculating  the  atmospheric  properties: 


TB 

HB 

BM 

R 

PB 

TWTM 


AG 

AMO 

ARR 

AR 

C0N1 

C0N2 

C0N3 


C0N4 


molecular  scale  temperature,  T  (K),  in  degrees  Kelvin 

M 

geopotential  altitude,  H^K),  in  meters 


gradient  of  molecular  scale  temperature  with  geopotential 

altitude,  L'  (K),  degrees  Kelvin/meter 
Mb 

density,  in  kilograms /cubic  meter 


6  2  2 

pressure  parameter,  (10  Pb/PQ  )  in  ft  /lb,  where  P^K)  is 

atmospheric-pressure  and  P  is  pressure  at  sea  level 
both  in  lb /ft2.  0 

molecular  weight,  M^,  gram/ mole 


In  addition,  the  following  constants  are  defined: 

gravitational  constant  g  ,  9.80665  m/sec2 

o 

sea  level  value  of  molecular  weight,  M0,  28.  9644  gm/molt 

ft  *e 

universal  gas  constant,  R*,  83.4.32  gm-m  /(  K  mel  sec :  ) 
radius  of  earth,  R,  6356766.  meters 
conversion  from  feet  to  meters,  .  3048  meters/foot 
conversion  from  °K  to  °R,  l,  8  °R/°K 

conversion  factor  for  non-dimens ionalizing  values  in  table  PI, 
Pq/106  where  Pq  is  sea  level  pressure,  .0021156  lb/ft2 

factor  lfYR*/CON2 '  used  in  calculating  speed  of  sound 
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The  calculations  begin  with  the  testing  of  the  input  geometric 
altitude,  fortran  symbol  H,  If  H  exceeds  upper  altitude  limit 
2275000,  000001  ft, ,  control  passes  to  statement  3  where  the  quantities 
RHO,  ASOUND,  T,  and  F  are  set  equal  to  constant  values  beiore  a  return 
to  the  calling  subroutine  is  achieved.  If  H  is  less  than  or  equal  to  the 
limit,  control  passes  to  statement  2.  The  geometric  height  in  meters, 
ZZ,  is  computed  from  H  and  used  to  determined  AH,  the  geopotential 
height.  A  D0  loop  is  then  utilized  to  determine  the  appropriate  tabular 
values  to  be  used  in  calculations  for  atmospheric  properties.  This  is 
accomplished  by  testing  the  geopotential  altitude  AH  against  the  tabular 
values  HR  in  the  following  teste: 

IF  (AH  -  HB(I»  7,  8,  9 
9  IF  (AH  -  HBU+1))  8,  7,7 

where  1  first  has  a  value  of  1  and  is  increased  by  1  each  time  statement 
7  is  reached.  The  maximum  value  t  can  have  is  26.  If  AH  is  leas 
than  the  tabular  value  HB(I)  control  goes  to  statement  7,  1  Is  increased 
by  1,  and  this  teat  is  performed  again  until  AH  is  either  equal  to  or 
greater  than  If  AH  «  HB(J)  control  passes  to  statement  8  where 

K  is  set  equal  to  current  value  of  I  and  00  T0  10  statement  is  executed. 

If  AH  is  greater  than  HB(I),  the  second  IF  statement  is  employed  to 
test  AH  against  the  next  value  in  the  table  HB(I  +  1).  If  AH  j*  HB(I+  1) 
Statement  7  la  utilised  and  tasting  continues,  but,  if  AH  <  HB(I  +  1), 
control  passes  to  statement  I,  where  K  is  set  equal  to  1,  and  is  then 
directed  to  etatement  10. 

Statement  10  is  the  beginning  of  the  calculations  for  free  stream 
temperature.  First  the  difference  between  the  current  geopotential 
altitude,  AH,  and  the  tabular  geopotential  altitude,  HDU)  Is  determined. 


MIHMIMIIINillll 


This  quantity  is  utilized  in  evaluating  the  following  equation  for 
molecular  scale  temperature,  TM  in  degrees  Kelvin, 


tm  “  Tb(K)  +  L  V(K)  (H  "  "b*K)  ] 

D 

Then  the  integer  KK  is  set  equal  to  K,  but  if  this  gives  a  KK  *  26 
KK  is  reset  to  25,  for  use  in  the  following  equation  for  molecular 
weight  in  grams /mole 

H  -  H^KK) 
iyKK+1)  -  H^KK) 

which  is  used  to  find  the  free  stream  temperature  in  degrees  Rankine 

T  -  T  m  *  Tm(CON2)  “ 

o 


(M^KK+l)  -  M^KK)  ) 


Statement  12  te.t.  the  jr.dt.nt  ol  molecular  temperature  . 
If  Is  non-zero,  control  Is  directed  to  statement  15;  however,  if 
L'  is  zero,  control  passes  to  statement  16. 


Statement  15  begins  the  evaluation  of  the  non-dimensional  density 
and  pressure  for  the  non-constant  temperature  regime  using  the 
equations 

pAK) 

RH0  ‘falpt  mp(2 T 
whsre  p  2  )  is  sea  level  density  , 


M 


1.  0  +  ”o  o 
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(CON3) 


Then  control  passes  to  statement  17.  Statement  16  evaluates  the  non- 
dimensional  pressure  and  density  for  constant  temperature  region  using 
the  following  equations 


P  * 


P.  (K)  exp 
b 


[g  M 

*  V 


(H 


CON3 


p  b(w 

RH0  exp 

Jr  b 


r  *o  Mo,H-Hb(Ki,7 
L '  r*  th(ki  j  ■ 


Control  then  passes  to  statement  17,  where  the  speed  of  sound,  ASOUND 
in  ft/sec.  is  calculated  form  the  equation 


ASWJND  ■  CON4  jlT  Pgii 


where  T  is  in  degrees  Rankine. 
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A.  SUBROUTINE  C0MP62  has  the  restriction  that  the  altitude 
input,  H,  must  he  a  positive  number.  The  subroutine  uses  the  firet 
set  of  equations  from  "U.  S.  Standard  Atmosphere  1%2"  with  some 
modification!  over  the  entire  range  of  altitude.  The  subroutine 
compares  with  the  standard  atmosphere  model  in  the  following  way: 


Mjijif: 

ijljj  i' 

il  'll 


From  0,  0  to  300,  000.  feet,  the  subroutine  is  exact. 

From  300,  000,  to  2.  275,  000.  compares  to  Less  than  i/2  of  1%. 
Above  2,275,  000.  the  subroutine  computes  constant  value, 

B.  SUBROUTINE  C0MP62  is  called  by  ARFDT2. 

C.  SUBROUTINE  C(&MP62  calls  in  the  following  library 
functions: 

1.  DEXP 

2.  DSQRT 

3.  FDXPD 
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LNTERP  (TBATMZ,  TABRHfl,  TABSND,  UPBNDZ, 
DNBNDZ,  Z,  RH0,  AS0UND) 


1,  Purpose 

mrnmmmmmtmmmimm 

SUBROUTINE  LNTERP  does  a  logarithmic  interpolation  to  obtain 
free  stream  density  and  a  linear  interpolation  to  obtain  the  free  stream 
sound  speed  from  the  Input  tables  when  UPBNDZ  >  Z  >  DNBNDZ, 
Outside  these  limits  SUBROUTINE  LNTERP  calls  in  SUBROUTINE 
ARFDT2  to  calculate  the  1962  Standard  Atmosphere  values. 


2,  Input 


Name 

Symbol 

Description 

Units 

DNBNDZ 

ZDNBND 

lower  altitude  boundary  on  use  of 

tables 

ft 

TABRH0 

^(TABLE) 

free  stream  density  table  must  be 

In  ascending  order  with  altitude 

lbm/ft' 

TABSND 

a  (TABLE) 

free  stream  sound  speed  table  must 
be  in  ascending  order  with  altitude 

ft/  sec 

if* »  a  mtiiv 

A  JO'jNk  A  AVI  iC* 

Z  (TABLE) 

tabular  altitude  in  ascending  order 

ft 

UPBNDZ 

ZUPBND 

upper  altitude  boundary  on  use 

of  tables 

ft 

mt 

Z 

altitude  for  which  free  stream 

conditions  are  desired 

ft 
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3.  Output 


Name 

Symbol 

Description 

Units 

AS  0UND 

a  oo 

free  stream  sound  speed 

ft/ sec 

RH0 

free  stream  density  speed 

slug /ft3 

4,  Numerical  Procedure 

SUBROUTINE  LNTERP  begins  by  testing  the  altitude  Z  to  determine 
whether  the  tabular  input  atmosphere  properties  or  the  calculated  1962 
Standard  Atmosphere  properties  are  to  be  used.  If  Z  <  UPBNDZ  control 
passes  to  statement  .10,  if  Z*  UPBNDZ  to  statement  40,  ad  if  Z  >  UPBNDZ 
to  statement  30,  In  statement  10,  Z  is  tested  against  DNBNDZ.  If 
Z  £  DNBNDZ  <control  passes  to  statement  30*  if  Z  >  DNBNDZ  control 
passes  to  statement  40.  Statement  30  calls  SUBROUTINE  ARFDT2  to 
calculate  the  free  stream  properties  of  the  1962  Standard  Atmosphere 
before  returning  to  the  calling  subroutine. 

Statement  40  begins  the  interpolation  of  the  tabular  values  with  a 
D0  loop  which  determines  the  appropriate  tabular  points  to  be  used.  'The 
D0  loop  set*  J  *  I  and  tests  TBATMZ(I)  against  Z  for  I  from  1  through  50 
or  until  TBATMZ(I)  £  Z.  If  no  value  of  TBATM(I)  £  Z,  control  calls 
EXIT,  At  tee  point  where  TBATMZ(I)  first  is  greater  'than  or  equal  to  Z„ 
control  passes  to  statement  46  and  the  interpolation  equations  with  1 
equal  to  the  last  L 
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The  evaluation  of  the  interpolation  equations  is  performed  following 
statement  46. 


EX  =  exponent  in  o  equation  a  (Z-TBATMZ(  J-1))/(TBATMZ(J)-TBATMZ(J-1)) 
*  EX 


RKCb-  ,j  =  TABRH0  ( J-l)  *  [TABRH^iJn 
RH<P  Jm,  32.  174  [TABRH0(J-l)j 

RATIO  “(TABSND(J)  -  TABSND(  J-1))/(TBATMZ(  J)  -  TBATMZ(J-l)) 


AS0UND  ‘  ago  s  TABSND(J-l)  +  (Z  -  TBATMZ(J-l))*  RATIO 
Then  control  returns  to  the  calling  subroutine. 


5.  Other  Information 

A.  SUBROUTINE  LNTERP  is  called  in  by  SUBROUTINE  PRELIM. 


B.  SUBROUTINE  LNTERP  calls  in 

1.  SUBROUTINE  ARFDT2 

2.  functions  EXIT  and  FDXPD 
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FUNCTION  TABLE  (X,  XTAB,  YTAB,  KMAX,  L) 


I.  Purpose 


FUNCTION  TABLE  performs  a  one  dimensional  table  look  up 
using  linear  interpolation  between  table  values. 


2.  Input., 


*  indicates  integer  quantity 


Name 


KMAX 


XTAB' 


YTAB 


3*  Output 


Name 


Mill 


I  !')  I  i!  i! 
1 1  I . if 

!  I l:) j1; 


Description 


integer  code  indicating  the  maximum  number  of 
values  in  the  XTAB,  YTAB  table 


integer  control  code 


the  value  of  the  independent  variable  for  which 
the  corresponding  dependent  variable  is  desired 


tabular  values  of  independent  variable 


tabular  values  of  dependent  variable 


value  of  the  dependent  variable  which  corresponds 
to  the  value  of  independent  variable  X. 
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4.  Numerical  Procedure 


The  calculations  of  FUNCTION  TABLE  begin  with  the  testing  of 
KMAX.  If  KMAX,  the  maximum  number  of  values  in  the  XTAB,  YTAB 
table,  is  1,  control  passes  to  statement  6  where  TABLE  is  equated  to 
the  singular  YTAB  value.  If  I  KMAX  is  not  equal  to  1,  then  code  L  is 
tested.  If  L  is  greater  than  aero,  control  passes  to  statement  2 
where  a  linear  interpolation  is  done  between  the  L  and  (L-l)  values  of 
the  tabular  input  to  obtain  ANS  which  is  set  equal  to  TABLE. 

If  L  is  less  than  or  equal  to  aero,  then  the  subsequent  calculations 
search  for  the  appropriate  tabular  values  to  use  in  the  interpolation, 
regardless  of  whether  the  tabular  values  are  in  descending  or  ascending 
order.  This  is  accomplished  by  first  setting  the  code  IG®  equal  to  1, 
for  ascending  order,  then  testing  the  first  tabular  value  against  the  second. 
If  test  shows  a  descending  order  then  IG®  is  reset  to  a  value  of  2. 
AD®  loop  encompassing  the  statements  through  statement  1  is  utilised 
to  determine  the  proper  tabular  values  for  use  in  the  linear  interpolation 

i 

of  statement  2,  The  loop  is  executed  for  values  of  K  from  2  up  until  the 
appropriate  Kjg  KMAX  is  reeched.  Within  the  loop  the  value  of  the 
quantity  IG0  directs  control  to  either  statement  1  (100*  1)  or  statement 
4  (IG®  *  2). 

In  statement  3,  if  X  >  XTAB(K)  control  passes  to  statement  one 
causing  K  to  be  Increased  by  one.  Then  the  procedure  is  repeated  until 
X  £  XTAB(K),  which  sends  control  to  statement  5,  where  L  is  set  equal 
to  that  value  of  K,  and  control  leaves  the  loop  passing  to  statement  2, 

In  statement  4  a  similar  procedure  is  followed  if  X^  XTAB(K)  control 
passes  to  statement. one,  but  if  X  |  XTAB(K)  control  passes 
to  statement  5  teen  to  statement  2.  If  K  reaches  KMAX  without 


satisfying  the  appropriate  test,  then  L  is  set  equal  to  KMAX. 


Statement  2  evaluates  the  equation  for  the  linear  interpolation 

ANS  *  i  TAB(L-l)  +  AB(  L  - 1 )  *  <YTAD<L>  *  YTAB(L-l)) 

then  TABLE  la  set  equal  to  ANS  before  the  return  to  the  calling:  subroutine. 

5.  'QjJtej^^nforiuatijjjo 

A.  FUNCTION  TABLE  is  called  by  SUBROUTINES  DEREQ,  PRELIM 
and  ROTATE. 

B»  FUNCTION  TABLE  calls  no  other  subprograms. 


3.  1.5 


Heating  and  Maae  Lose  Calculations 


. 


* 


The  following  section  contains  the  descriptions  of  the  subroutines  which 
perform  the  heating  and  mass  loss  calculations.  The  cold  wall  aero¬ 
dynamic  heating  distribution  along  the  body  is  computed  by  SUBROUTINE 
AERODY.  These  results  are  then  used  in  the  determination  of  the  mass 
loss  rate,  wall  temperature,  and  surface  recession  rate  distribution  by 
SUBROUTINE  EVIL  which  is  called  in  for  each  body  station  by  SUBROU¬ 
TINE  MA55LO.  TOMALO  is  then  used  to  integrate  the  mass  loss  rate 
along  the  body  to  obtain  the  rate  of  change  of  vehicle  weight  due  to  heat- 
shield  ablation.  The  wall  recession  rates  are  then  used  to  determine 
the  time  rate  of  change  of  nose  radius  and  base  radius  where  cone  half 
angle  remains  constants  in  SUBROUTINE  NOSEBL, 


;i'5!  : 


i 
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SUBR0UTINE  AER0DY  calculates  the  ratio  of  edge  pressure 
to  stagnation  pressure  and  the  cold  wall  aerodynamic  heating  rates  for 
the  body  stations  appropriate  to  the  configuration.  For  the  sharp  cone, 
these  stations  are  the  stagnation  and  maximum  diameter  points.  The 
blunt  cone  is  represented  by  the  stagnation  point,  the  tangent  point,  the 
20,  40,  60,  75,  90  per  cent  stations  based  on  initial  axial  length*  the 
maximum  diameter  point^and,  in  turbulent  flow  only,  the  sonic  point. 

In  addition,  the  maximum  diameter  point  sharp  cone  values  are  evaluated 
for  purposes  of  comparison  with  the  blunt  cone  results. 


30 

81 


ZPES 


coefficient*  01 


PRELIM 

SR2490 

PRELIM 


sharp  cone  si. 

numerical  fac 
non-dimens  io; 


mt  jikj 
JEj  JL4  JLXV1 


coefficients  of  curve  fit  equations 

sharp  cone  slant  length 

numerical  factor  «  (sea  level  density)0,  8 
non-dimensional  stagnation  enthalpy 

input  initial  axial  length  of  first,  configuration 
input  initial  axial  length  of  second  configuration 

Instantaneous  .bluntness  ratio 
free  stream  Mach  number 

ratio  of  free  stream  pressure  to  stagnation  pressure 
stagnation  pressure 

free  stream  density  in  slug/ft3 
instantaneous  nose  radius 
sine  of  cone  half  angle 
tangent  of  cone  half  angle 
cone  half  angle  in  radians 
cone  half  angle  in  degrees 

velocity 

altitude 

transition  altitude 

altitude  at  which  configuration  changes 


(slug/ft) 


lb/ft 

3 

slug /ft*1 


radians 

degrees 

ft/ sec. 


3 


Output 


Name 

Symbol 

Occur  Number 

- - i 

S 

PEPSB,  8 

(P  /P  ) 

e  e  . 

l 

2801- 

2808 

distributl 

pressure 

QD0T,  32 

• 

qi 

2676- 

2707 

cold  wall  , 
< 

XLA,  8 

(X/La). 

815- 

822 

i 

body  statii 

■ 


< 


< 


i 


iber 


Description 


Units 


distribution  along  body  of  ratio  of  vehicle  edge 
pressure  to  stagnation  pressure 

cold  wall  aerodynamic  heating  along  body 

body  stations  for  heating  and  mass  loss  calculations 


Btu 

"  2  " 
ft  -  sec 


1 


* 

i 

\ 

4.  Numerical  Procedure  *  j 

! 

SUBROUTINE  AERODY  may  be  divided  into  three  main  groupings  i 

of  equations  (1)  stagnation  point  heating,  designation  of  station  locations,  J 

and  evaluation  of  the  distribution  of  the  ratio  of  edge  pressure  to  stagnation  j 

pressure,  (2)  laminar  cold  wall  heating,  (3)  turbulent  cold  wall  heating.  \ 

Each  group  contains  calculations  for  both  sharp  and  blunt  cones.  1 


The  indices  of  the  q  array  have  the  following  significance  in 
indicating  flow  regime  and  body  station: 


OD0T(1,  1)  ■  q 

stag 

QD0T(2,  J)  «  q^  a  j  laminar  flow 
QD0T(3,  J)  a  =  j  turbulent  flow 

QD®T(4-11  ■  ‘'sonic  turbttta"tflo* 

where  J  *  1  represents  the  tangent  point 

J  ■  2  through  7  correspond  to  the  20,  40,  60,  75,  90  per  cent 
stations  and  the  max  diameter  point 

J  ■  8  the  maximum  diameter  point  on  sharp  cone  having 
cone  half  angle  0. 

These  station  location  indices  also  apply  for  the  pressure  distribution 
and  per  cent  axial  distance,  (X/La^* 

The  stagnation  point  heating  is  obtained  from 
X  <  10"3  Re  *  1.  0 
X  10  3  Rs  *  Rn 
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3.  15 


26000. 


Using  a  DO  loop  the  ratio  PEPSB(J),  (P  /P  )  ,  is  zeroed  for 

c  si 


J  =  1,  7.  The  sharp  cone  Pe/Pg  at  the  maximum  diameter  point  is 


computed. 


PEPSB{8)  =  {-=•) 

Ps  i  =  8 


=  0.0331  e 


0.  00648  -  0.  33(M-*  -54 

D  *• 


0.85 


1.88032 


+  0.000468  e 


D 


i  -3 

and,  if  A  <  10  ,  control  passes  to  statement  1.  If  A  it  10  ,  the 

blunt  cone  station  locations  are  defined  for  the  current  configuration  and 
the  corresponding  pressure  distribution  evaluated. 


-3 


XLA(l)  *  (X/La),  »  R  (1.0  -  sin  0)  /La 
i  n 


Z  >  OLA  *  La  ./La 

TORN  1 


Z  S  ZTURN  DLA  *  La2/La 


XLA(2)  »  1.0  -  0.8  DLA 

=  (X/La»z 

XLA(3)  *  1.0  -  0.  60  DLA 

=  {X/La)3 

XLA(4)  «  1.0  -0.40  DLA 

«  (X/La)4 

XLA(5)  =1.0  -  0.25  DLA 

■  (X/La)^ 

XLA{6)  -  1.  0  -  0.  1  DLA 

«  (X/La)6 

XLA(7)  »  I.  0 

■  (X/La)? 
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The  gee  metric  quantity  TEST  is  used  to  determine  whether  the  boundary 
layer  at  a  given  point  on  the  blunt  cone  has  been  swallowed,  i.  e. ,  flow 
is  conical. 

TEST  =  *'  13  Rn 
La  tan2  9 


The  calculations  for  the  blunt  cone  pressure  distribution  proceed 
with  the  evaluation  for  each  index  1  through  7  of  the  equations  nested  between 
the  D02  statement  and  statement  2.  Initially,  the  value  of  (X/Lah  is 
tested.  If  (X/L^j,  for  if4  1,  is  less  than  or  equal  to  (X/La)j  ,  control 
passes  to  statement  21  where  the  {X/La),,  is  set  equal  to  (X/La)j  and 
the  corresponding  pressure  ratio  (Pe/Ps^  set  to  0.  0.  This  test  is 
necessary  for  cases  of  severe  noseblunting  where  the  nose  ablates  past 
the  indicated  station.  For  X/La^  orwheni^  1,  X/La^  >  X/La^  the 
X/La.  (for  all  i)  is  tested  against  the  parameter  TEST.  If  (X/La)  > 

the  conical  pressure  ratio  (Fe/Ps)g.  If  (X/La)^  <  TEST,  the  blunt 
cone  pressure  ratio  is  computed  as  follows: 


XP  *  Xp  *  0.174  »D 


YD  *  Yp*  I.  0/Mm 
ZP  *  Z  »  0.  2  log  I  (X/La) 


La  tan^  8  IQ* 

MMaWNMMMMIaHMMaM 

'Rn 


1 


2  2 

**  TtfISJ  fi  f  If  W* 
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V  20.  WP  Wp  N]^Q  A4 1+NN+2JJ+6KK  XP  ^  ZP 


n  2  JJ  2!  KT-vr  T  t  If  If 

»*<  20,  WIP*  W  *  X  X  X  A,,_ X„ w  Y1  ZZr 

D  P  NN.o  JJ«0  KK*0  135+NN+3JJ+9KK  P  *P  *P 
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PEPSB(I)  =  (P  IP  },  =  W  tan  9  +  — 
e  8  1  r*  tr 


The  altitude  Z  is  tested  against  transition  altitude  ZTR’  if  Z  <  ZTR' 
control  passes  to  statement  5,  the  start  of  turbulent  calculations. 


If  z  £  Z„„,  the  laminar  equations  are  evaluated. 
TR 


0.9736 


QBL  -  “  10.  0 


0.5142  loge(hs/RT0> 


K1L  -  K1l  ■  0.9664  +  0.00528  8D  +  .000288 


K2L  *  K  *  1.0  +  1.782  A  -  2.  008  A 
2L» 


LAPS  -  La/P. 


If  A  <  1Q~3,  the  laminar  sharp  cone  healing  is  obtained  from 


I O.  /  D  V 
W1/ 


8 

QDOTUW  ■  j  jgjjri 


‘ij^  -  a 

before  control  is  returned  to  'the  calling  subroutine.  If'  A  *  10  ,  the 
heating  distribution  is 


P 


qd0t(z,  i)  •  4TANa  pT . -i.  731  Stag  <* oow 


LAM 


•  1 


P  F 

(1.849  +  (  JL)  (-1.6832  +  0,841 

*  1 


•  1 


m 


l  \Ak 


I'MW 


-  - . . —————— . .  . .  ■  . . — . . i 


and,  for  I  *  2  through  8, 


QD0T(2,  II  *  q.  ■ 


m 

0 L _ 

K1L  K2L 


The  return  statement  is  then  executed. 


(P./P.)  i 

e  s 

(2116. )  (La/  P  )  (X/La). 

®  i 


Statement  5  ie  the  beginning  of  the  turbulent  flow  heating  rate 
calculation#.  The  reference  heating  state  CL  and  the  geometric 
—  K1t.  K2T.  K„.  ^K4T„.7.L, 


0.745  (loge 

QBTC  ■  Pjc  «  10,0 


ht/RT0) 


0,8122 


KIT  »  K1t  -0.9  +  0,02  »D 
K2T  *  K2T  »  0.6 


K3T  «  KJt  »  0.69  +  La  (0,0318  -  0.00Q69La) 

K4T  -  K4T  ■  1.0 

1  A>  10*  *  control  paste,  to  the  blunt  cone  turbulent  calculation* 
beginning  at  statement  8.  If  A  <f  10  \  the  sharp  cone  maximum  diameter 
point  heating"  rat*  i*  computed  and  control  roturna  to  th*  calling  subroutine. 


TM  *  P#/2116. 


QO0T(3,  8)  * 


The  blunt  con*  turbulent  heating  rate*  evaluation  begins  in 
statement  8  with  'the  computation  of  sonic  point  heating.  The  heating 
rates  for  the  tangent  point  and  the  points  on  the  conical  frustum  are  then 
computed. 


if  Z  *  1 15000.  ft  MB -m*  3,45 
if  Z  >  115000.  ft. 

MB  -  m«  2,  2540  +  Z(2.  246 x IQ-5  +  Z(-146.9  x  10“12  +  367.  1  x  10"lbZ)J 


QD0T14.  1 )  *  k _ 

w  1  '  #  ^SONIC  PT, 


3760.  Vm 

R  0,  2  FACTRl  10, 04 


FITANG  *  ♦-»***#*  ■  (  =~  )  1,0  -  l  =r) 

rTANG.  PT.  P  '  P  ’ 


QWIor,,•‘,■ ’tano.pt 


TURB. 


1.  346  10" 


. 0  -  (  . -» . a .  j 

(R  (!*•))  *  2.375xl0‘3 


(»  0001 V) m  t 


TAMH 


The  denominators  related  to  thrae  categories  Into  which  (X/LaK 

i 

values  might  fall  ate  defined  In,  preparation,  for  determination  of  heating 
rate*  on  the  cwttlal  frustum.  Here  the  quantity-  TEST  la  redefined* 

TEST  *  1.13  R  /  (3,0  U  Tan2  8) 

II: 

If  A  >0.1  J«t  •  KaT*  1.0 
lfXjO.2  KIT  •  Kjt«  0.6  +  2.0  k 
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K3T  =  K3t  ■  0.  69  +  La(0.  0318  -  .  00069La) 

K4T  =  K4T  =1.0 

DEN0M1  ■  KlfT,  K,_  K  K 

IT  2T  3T  4T 

Then  defining  the  denominator  for  the  secnnd  region 
K3T  ■  K  =  0.69  +  La(0.  0318  -  0.00069  La) 

DEN0M2  =  K1t  K2t  K3t 

and  for  the  third  possible  range  of  {X/La^  values 

K2T  “  K2T  *  0.6 
K4T  ■  K4T  *  1.  0 

TEM  »  La  -  Rn  +  Rn/sin  8 

K3T  **'  K.  _  »  0.69  +  TEM(o,  0318  -  0.00069  TEM) 

3T 

DEN0M3  *  Klx  K2T  K3t  K4T 

Using  a  D0  loop  which  includes  all  statements  through  9, 
each  value  for  (X/La^,  the  non-dimensional  station  location,  is  tested 
against  the  parameter  TEST  and  the  appropriate  q.  defined  according  to 
the  category  into  which  (X/La^  falls.  If  (X/La)^  £  TEST,  control 
passes  to  statement  10.  If  (X/La)^>  TEST,  but  §'  (3*TEST),  control 
passes  to  statement  11.  However,  if  (X/La^  >  TEST  and  >  3*TEST, 
the  q.  is  defined  as 


ODWM.tW  -oTc  (  — )  2-tk 

TvjRB  L.  *  i 


DEN0M3 


then  control  passes  to  statement  9.  In  statement  10,  the  quantity  DEMC&M 
is  set  equal  to DEN0M1,  before  passing  to  the  definition  of  ^  In  statement 
12. 

T  P  P  "T 

qdGto.dmM  »  qtc  M’p1)  JnT~  /  DEN®M 

1  TURB  L.  s  *  J  ' 

which  is  followed  by  statement  9.  Statement  11*  defines  the  following 

TEM  «  (X/La)i  -*  TEST 

K4T  *  K,_  "  0.901  +  TEM  (-0.867  +  0,9660  TEM) 

1  I 

DEN«M-DEN«M2.K4t 

before  utlliMd  the  equation  for  ^  of  statement  12.  Whan  heating  rates  for 

all  (X/ La),  hare  been  calculated  the  return  to  the  calling  subroutine  le 
i 

executed. 


5,  Other  Informatiou 

,  '  ' 

A,  SUBROUTINE  AER0DY  ie  called  by  either  SUBROUTINE 
DEREQ  or  SUBROUTINE  VIXEN, 

B.  SUBROUTINE  AER0DY  calls  in  the  internal  function* 


1  *%«*%*« 

•  UJfm-wkm 

2»  DSQRT 


91!  DL0G 
FDXPD 


fWOW 
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SUBROUTINE  MASSL0 


I,  Purpose 

SUBROUTINE  MASSL0  control  the  calling  of  SUBROUTINE 
EVIL.  MASSL0  calls  In  EVIL  for  each  body  station  required  according 
to  the  particular  shape  and  flow  condition. 
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2,  Input 

♦indicate*  integer  quantity  and  N OCCUR  number  code, 


Name 

Symbol 

Occur /woccur 
Number 

Source  of 
Input 

C 

c 

115 

READIT  or 
SR2490 

LAMDA 

A 

032 

PRELIM 

QD0T,  32 

% 

2676* 

2707 

AER0DY 

SPD 

- 

068 

ptryt 

J6»  ¥  Jl  Jit 

m 

M* 

Z 

091 

DEREQ 

ZTR 


092 


PRELIM 


Description 


Unite 


stagnation  point  heating  multiplier  for  changing 
mass  loss  effects  on  nose 

instantaneous  bluntness  ratio 

cold  wall  aerodynamic  heating  at  specified  stations  - - 

ft  -sec 

surface  recession  rate  calculated  in  subroutine  EVIL  ft/ sec 

altitude  ft. 

transition  altitude  ft, 

wall  temperature  calculated  by  subroutine  EVIL  °R 


code  lot  body  position,  flow  condition 
cod#  for  'body  position,  flow  condition 

bold  wall  aerodynitnic  heating  at  specified  stations  5|S . - 

ft  -sec 

Surface  recession  rate  at  Specified  stations  ft/ sec 

W'all  temperature  at  Specified  stations  °R 

Stagnation  point  Wall  temperature  °R 


4.  Numerical  Procedures 

This  subroutine  employs  ASSIGN  statements  and  an  ASSIGNED 
G0  T0  statement  to  control  the  flow  of  the  subroutine.  The  indices 
J  and  K  indicate  the  flow  regime  and  body  station  as  follows; 

j  a  1  K  *  1  stagnation  point  for  all  Z 

j  a  2  K  *  1,  7  blunt  cone  laminar  conical  frustum  points 

J  s  2  K  *  8  sharp  cone  laminar  maximum  diameter  point 

j  a  3  K  *  1,  7  blunt  cone  turbulent  conical  frustum  point 

j  a  3  k  *  8  sharp  cone  turbulent  maximum  diameter  point 

j  a  4  K  «  1  turbulent  blunt  cone  sonic  point 

Initially  J  and  K  are  both  set  equal  to  1,  value  2  is  assigned  to 
NEXT  (used  in  ASSIGNED  GO  TO  statement),  q(l,  1)  is  set  equal  to 
4(1,  1)*C  (adds  effect  of  stagnation  point  multiplier),  then  control  is 
directed  to  statement  100. 

Statement  100  is  the  beginning  of  the  mats  loss  rate  calculation. 
Here  JJH0LD  is  set  equal  to  J  and  KKHOLD  is  set  equal  to  R,  since  these 
are  designations  used  in  common.  Then  SUBROUTINE  EVIL  is  called  in 
for  the  current  value  of  1  and  K  to  calculate  the  mass  loss  rate  m(J,  K), 
wall  temperature  ZZ,  and  surface  recession  rate  SFD  for  each  station 
required,  T^tJ,  K)  is  set  equal  to  ZZ  and  6<  J,  K)  to  SFD,  Then  the 
ASSIGNED  Q0  TO  statement  -  G0  TO  NEXT,  (2,200,  20,  6,30)  .  causes 
the  subroutine  control  to  be  directed  to  the  statement  number  hairing  the 
the  same  value  as  NEXT,  When  the  flow  is  directed  to  statement  200, 
the  return  to  the  calling  subroutine  is  accomplished. 
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After  performing,  the  calculations  for  J  *  1,  K  *  1  the  subroutine 

continues  to  statement  2,  T  is  set  equal  to  T  (1,  1)  and 

WSTAG 

q{l,  1}  *  q(l,  1)/C,  Then  Z  is  tested  against  ZTR  to  determine  whether 
fluid  flow  is  laminar  or  turbulent.  If  Z  <  ZTR,  the  laminar  calculations 
are  circumvented  by  skipping  to  statement  3, the  beginning  of  turbulent 
calculations. 

If  Z  >  ZTR,  the  calculations  proceed  to  the  testing  of  bluntness 

-3 

ratio,  LAMDA.  If  LAMDA  is  less  than  or  equal  to  10  ,  then  J  *  2 
and  K  *  8,  200  is  assigned  to  next,  the  subroutine  proceeds  to  statement 
100  and  does  the  laminar  sharp  cone  calculations. 

The  assigned  G0  T0  statement  goes  to  the  RETURN  statement  200. 

-3 

If  LAMDA  >10  .the  control  goes  to  statement  4  begins  the  laminar 
blunt  cone  calculations.  In  statement  4,  J  is  set  equal  to  2.  K  is 
initialised  to  0.  In  statement  20,  K  is  set  equal  to  K  +  1  and  in  the  next 
statement  tested  to  see  if  the  maximum  allowable  value  has  been  reached. 

If  K  equals  9,  control  passes  to  RETURN  statement  200.  II  K  is  less 
than  9fvalue  20  is  assigned  to  NEXT  and  the  G|0  T0  100  statement  exercised. 
The  mast  loss  calculations  are  performed  and  subroutine  flow  returns  to 
statement  20  where  value  of  K  Is  Increased  by  1  causing  mass  loss  calculation 
to  be  performed  for  the  next  body  station.  This  sequence  is  repeated  until 
the  calculations  for  all  the  blunt  cone  stations  and  sharp  cone  maximum 
diameter  point  have  been  performed  at  which  point  K  a  9. 

The  turbulent  flow  calculations  proceed  in  an  analagoua  manner 
with  the  addition  of  a  sonic  point  calculation  performed  for  the 
blunt  cone.  In  statement  1,  LAMDA  Is  tested  and  If  less  than  or  equal 
to  lo"  proceeds  with  the  sharp  cone  calculations.  J  is  set  equal  to  3 
and  K  to  I,  100  Is  a  j  signed  to  NEXT,  the  mass  loss  calculations  are 
cadled  in,  then  the  return  to  the  calling  subroutine  la  executed,  If  LAMDA 
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-3 

is  greater  than  10  ,  subroutine  flow  proceeds  to  statement  5,  which 

begins  the  turbulent  blunt  cone  calculations  with  the  sonic  point 
calculation.  J  is  set  equal  to  4  and  K  to  1,  6  is  assigned  to  NEXT, 
mass  loss  calculations  are  called  in,  after  which  the  ASSIGNED  G0 
T0  statement  causes  flow  of  subroutine  to  go  to  statement  6.  Statement 
6  is  the  beginning  of  turbulent  calculations  for  points  on  conical  frustum. 

J  is  set  equal  to  3;  K  to  0;  then,  in  statement  30,  K  is  set  equal  to  K  +  1; 
if  K  is  less  than  9,  30  is  assigned  to  NEXT  and  mass  loss  calculations 
called  in.  The  ASSIGNED  GO  T0  statement  causes,  the  return  to 
statement  30,  where  value  of  K  is  increased  by  one  causing  a  repetition 
of  the  procedure  until  the  value  of  K  is  9,  indicating  that  calculations  for 
all  the  stations  on  the  blunt  cone  and  for  sharp  cone  maximum  diameter 
point  have  been  performed, 

5.  Other  Information 

A.  SUBROUTINE  MASSLO  calls  in  SUBROUTINE  EVIL. 

B.  SUBROUTINE  MASSL0  Is  called  in  by 

1.  SUBROUTINE  VIXEN 

2.  SUBROUTINE  DEREQ 


SUBROUTINE  EVIL  is  called  by  MASSL0  to  calculate  the  mass 
loss  rate,  m  ,  the  wall  recession  rate  S. ,  and  the  wall  temperature, 

,  for  each  of  the  body  stations  for  which  aerodynamic  heating  rates 

were  obtained  in  SUBROUTINE  AERODY.  The  method  of  calculation  is 

a  function  of  the  material  being  considered.  For  OTWR  in  turbulent  flow, 

as  well  as  LT  ,  teflon,  and  the  input  material  in  both  laminar  and 
a 

turbulent  flow,  an  iterative  steady  state  solution  is  used.  OTWR  in 

laminar  flow,  carbon  phenolic,  and  phenolic  nylon  employ  curve  fits 

of  m  and  S  as  functions  of  the  cold  wall  aerodynamic  heating,  q  , 

from  SUBROUTINE  AER0DY,  and  Tw  as  a  function  of  S, 

w 


Z,  Input 


Name 


Symbol 


Description 


sublimation  rote  coefficient 

ft 

sec  °R 

a ubii motion  rote  coefficient 

ft 

sec°R^ 

order  of  reaction 

■S* 

octivoUon  temperature 

°R 

a% 

■peclfic  hoot  of  eolid 

Btu 

Ibm-°R 

difference  between  virgin  and  ehnr  density 

lbm/ft* 

coefficient  of  emission 

heat  of  oblation 

Btu/lbm 

numerical  factor  uaed  in  iterative  solution 

• 

numerical  factor  used  In  iterative  solution 

• 

numerical  factor  uaed  .In  Iterative  solution 

Btu 
ft*  °R 

numerical  factor  used  In  iterative  solution 

Btu 

ft3 

Ibm/ft3 

numerical  factor  used  In  iterative  eolution 

numerical  factor  need  in  iterative  solution 

lbm/ft3 

ntinrtartaal  factor  used  In  iterative  eolution 

Btll/lhm 

non-dimensional  stagnation  enthalpy 
•odi*  lot  body  position,  flow  condition 


'  ....  .f. 


KKH0LD 


02  * 


MASSLO 


MATLN0 

13  * 

READIT  or 
SR2490 

NST 

La 

M  ST 

040 

CHNTBL 

PS 

HI 

o 

047 

PRELIM 

GO"0T»,  32 

\ 

2676* 

AER0DY  or 

2707 

MASSLO 

RH<2>2 

ft 

058 

CHNTBL 

ijw  '1*11™#  li 

tinit 

132 

READIT  or 
SR2490 

T-nr  ** 

1  W)  #  m 

T 

2644- 

CHNTBL  or 

w 

i 

26  7  5 

MASSLO 

TWO 

TW 

0 

074 

CHNTBL 

Z 

z 

091 

BEREQ 

£fi 

z 

vn 

092 

PRELIM 

JL  OutDut 

^ w 

Lriain  a  ib' 

!Hw  Wm  'IP  -lull 

% 

225 

K|D'#T,  31 

S 

2708- 

2739 

SPD 

068 

code  for  body 
material  optio: 
turbulent  tram 
stagnation  pre^ 

cold  wall  aeroi 
along  the  body 

char  density 
initial  internal 
wall  temper  aw 
Initial  wall  ten 

altitude 

tranaition  altitj 

\ 

i 


non-dimenrion 

mass  loss  »*tte| 


wall 


evil  la  perfor 


Description 


Units 


code  for  body  position,  flow  condition 
material  option  code 
turbulent  transpiration  factor  of  solid 
stagnation  pressure 

cold  wall  aerodynamic  heating  distribution 
along  the  body 

char  density 

initial  internal  body  temperature 

wall  temperature  distribution  along  body 

Initial  wall  temperature  for  configuration 


lb/ft2 

Btu 

2 

ft  sec 
lbm/ft3 

°R 

°R 

°R 


altitude  ft. 

transition  altitude  ft. 


non*dirntti.iional  wall  enthalpy 

Z 

mass  loaf  tate  distribution  along  vehicle  lbm/ft  -sec 

wall  recession  rate  at  point  on  body  for  which  ft/  sec 

If*  YF  f  T'  J  A  ^^1  ^  J  .q.i  1  _  _  IS  ^  _  _  1  —  XJ  —  _ 

M&  v  ijl*  jt'0  cAicuiAtioni$ 

Wall  temperature  at  point  on  body  for  which  EVIL  °R 

Is  performing  caiOhlatiOns, 


4.  Numerical  Procedure 


The  equations  of  SUBROUTINE  EVIL  may  be  grouped  into  four 
main  sections:  (1)  steady  state  ablation  iterative  solution,  (2)  laminar 
OTWR  calculations,  (3)  phenolic  nylon  relations,  (4)  carbon  phenolic 
equations.  The  steady  state  ablation  metho4  which  entails  the  iterative 
solution  of  simultaneous  equations  for  the  surface  temperature  and  the 
wall  recession  rate,  includes  the  following  energy  considerations  - 
convective  energy,  conduction  flux,  surface  radiation  lose,  and  sublimation 
energy.  The  results  for  surface  temperature  and  wall  recession  rate 
are  then  employed  to  determine  the  mass  loss  rate.  For  OTWR  and 
carbon  phenolic  in  laminar  flow,  and  phenolic  nylon  in  laminar  and 
turbulent  flow,  curve  fits  of  m  and  S  as  functions  of  the  cold  wall 
aerodynamic  heating  and  T^.  as  a  function  of  S  are  utilized.  The 
turbulent  carbon  phenolic  m  is  obtained  from  the  conduction  flux,  the 
radiation  loss,  and  a  calculated  q*;  S  is  a  function  of  m,  and  Tw 
a  function  of  £. 

SUBROUTINE  EVIL  calculations  begin  by  setting  the  quantities 
I  and  K  equal  to  JJH0LD  and  KKH0LD,  respectively,  and  IC0UNT 
initialized  to  zero.  Then,  if  3  is  equal  to  2  (value  of  2  indicating  laminar 
flow  for  points  of  conical  frustum),  the  turbulent  wall  temper  *ture  for  the 
point  on  the  conical  frustum  being  considered,  TW(3,  K),  is  set  equal  to 
TW(2,  K)  laminar  wall  temperature  at  that  point  and  the  turbulent  sonic 
point  wall  temperature  TW(4, 1)  is  set  equal  to  laminar  tangent  point 
value,  TW(  2,  1).  This  is  done  in  order  to  start  the  turbulent  calculations 
with  a  reasonable  wall  temperature  when  the  laminar  calculations  precede 
them.  If  the  program  is  started  in  turbulent  flow,  the  input  initial  wall 
temperature  is  used  as  a  first  value.  If  J  is  not  equal  to  2,  the  pre-setting 


f 


of  the  turbulent  wall  temperature*  is  unnecessary  and  the  equations  are 
bypassed. 

Next,  the  material  number  code,  MATLN0,  Is  tested  In  order  to 
direct  control,  the  the  appropriate  method  of  calculation.  If  MATLN0  <  3, 
which  indicate*  use  of  either  teflon  for  MATLN0  *  l*  or  Ly  for 
MATLN0  *  2,  control  passe*  to  statement  14,  If  MATLN0  >  3,  the 
quantity  is  tested  to  see  if  it  has  the  value  4,  If  MATLN0  ■  4  for 
phenolic  nylon,  control  passes  to  statement  12,  If  MATLN0  >  3,  hut 
f  4  {that  is,  it  ha*  value  of  either  3,  3,  or  6),  it  Is  again  tested,  Now, 
if  MATLN0  «  6  for  an  Input  material,  control  passes  'to  statement  14, 

If  MATLN0  equate  either  3  for  OTWR  or  S  for  carbon  phenolic,  the 
altitude  Is  tested  to  determine  whether  the  flow  is  laminar,  Z  >  ZTR, 

In  which  case  control  passes  to  statement  52,  or  turbulent,  Z  <  ZTR, 
in  which  case  control  proceeds  to  statement  14, 

Statement  14  I*  the  beginning  of  the  iterative  solution  of  the  steady 
•tat*  ablation  model.  The  wall  temperature  symbol  used  in  tie  iteration, 
ZZ,  is  set  equal  to  TW(I,  K)  which  at  time  *  0  is  equal,  to  TWO  and,  at 
time  >  0  is  equal  to  the  previous  solution  for  the  value  of  wall  temperature 
at  the  point  being  considered.  The  quantity  08,  the  increment  added  to 
wall  temperature  for  each  iteration,  Is  defined  ee 

08-  T  ■  0.0M  T  +  iS|22tl 

Wi  wi  Iw1 

Statement  1,  which  l*  the  beginning  of  the  Iterative  loop,  inc  re  e  ee  e 
the  value  of  IC0UHT  by  one.  The  wall  recession  rate  SPD  is  defined  as 


§ 
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The  Muntrical  factor*  nect**ary  to  calculate  Hw  are  determined 

TKl  ■  FACTR2  -  l,  1112  x  105/ZZ 
KJ  -  Kj  *  EXP  (TKl) 

If  KJ  <  1.0*  IQ*36,  K1  «  0.0 

PBAR  -  P  «  P  /MIT. 

I*  —  1/2 

K2  -  |12.  7659  K,*K.  +  4.  K,  *  2. 9984 (K.  +4.  P)  F/.CTRJI  -  12.  7657  K 

wmm  A  A  <!  l  mm 

K2  *  K2  ■  0.5  K2  /  (Kj  +4,0#) 

P  •  13,654  +  469,585  K_ 

I  « 

r2  -  0.256012  ♦  .5558  10’2  K2 
r,  •  0,  §345  10*5 . 0.  427  10*6  K2 
amt  using  the  a# 

HW  ■  *(jfi  +  ZZ  (P2  +  Tj  ZzQ  /SI.  86* 

The  following  coefficient*  are  defined  for  nee  in  deteraiMnc  the  conduction 

flwc 

E1BAR  ■  ia  ■  /35, 89 

XCftM*  XC0M*  0.  349  \l*\ 

E2BAR  •  E2  «  (XCQM  +  0,  §  i^)  /  (XCQ||  *  17, 945) 

ESBAR  «  E3  »  0.95  -  (H^  -  Hr#f)  / 


Then,  if  JJHOLD  *  2  which  indicate#  a  point  on  the  conical  frustum  in 
laminar  flow,  control  passes  to  statement;  2,  there  El  *  0,0  and  E2  * 

*0,  185  are  defined  before  passing  to  statement  4,  If  JJH0LD  4  l, 
but  la  £  3  indicating  either  turbulent  sonic  point  or  turbulent  conical 
fruatum  point,  control  passes  to  statement  3,  there  El  and  E2  are 
respectively  set  equal  to  0, 0  and  -0.502  before  control  passes  to  statement 
4,  If  JJHOLD  satisfies  neither  condition,  indicating  a  value  of  i  for 
stagnation  point,  then  El  •  -  0. 037  and  E2  *  0,  0  and  control  passes 
to  statement  4, 


Statement  4  begins  the  evaluation  of  the  terms  of  the  simultaneous 
equations. 


El  E2 

QD0T0F  *  fj0F  •  *q  (JJH0LD,  KKH0LD)  El  E2 


If  5  0. 0  control  passes  to  statement  77,  otherwise  the  following 
quantities  are  defined 


TEM  ■  ZZ  -  T, 


INIT 


Z  >  ZTR  FBAR  m  i  M  spd  h#  FACTR6/H, 


OF 


z<  z 


TR 


FBAR  «  I  *  SPD  h  FACTR7/  b 


OF 


PWB  -  4  -  exp 


(1.0  +  0.616  fjjjj 


* b®  lUTiiiCc  p sdiAQon  nrrn  ot  new  iiux  is 

QD0TT  »  ^*  0,47583  lO^fe  (ZZ)* 

The  comtuetioit  flint  term  is 


QD0TC  •  qc  ■  *i0F  IfST  4 


II  MATLN®  *  5,  at  this  point  control  parses  to  statement  55,  the 
beginning  of  the  turbulent  carbon  phenolic  equation*.  Otherwise, 
iterative  solution  is  continued  with  the  definition  of  the  sublimation 
energy 

QD0TS  ■  3  SPD  fz  F 

and  the  convective  energy 

LBAR  “  L»  q  •  SPD(TEM+FACTR4  +  FACTR5). 

K 

In  solving  the  aimultaneou*  equations,  the  convective  energy 
must  be  balanced  against  the  following  sum  of  the  other  energy  term* 

RBAR  *  R  »  q  -4  m  A 
’c  r  • 

The  quantity  ARGU  which  must  be  sero  or  minimised  to  obtain,  a 
solution  is 

ARGU  «  L  -  L 

The  quantity  ICOUNT  is  tested;  If  it  is  >  100,  indicating  100  passes 
through  'the  evaluation  of  'the  equations,  the  last  value  of  ZZ  is  taken 
a*  'the  solution  as  control  passes  to  statement  SO.  If  IC0UNT  <  100, 
the  quantity  ARGU'  is  tested  **»  if  )ARGU|  <  1, 0,  control  passe*  to 
•tatement  50  or,  If  |ARGUf  ?  1.0,  but  <  [0.01  L|,  control  passes 
to  statement  50  and  the  current  value  of  ZZ  is  taken  as  the  solution. 

U  |  ARGU  I  fc  1.0  and  >  |0.01  £  |,  ARGU  is  again  tested*  if  <  0.0, 
control  passes  to  statement  fl;  if  *  0.0,  control  passes  to  •tatement 
50;  If  >  0.0,  control  passes  to  statement  9,  Statement  8,  for  ARGU  <  0.0, 
tests  the  increment  in  wall  temperature  OS:  1)  If  OS  <  0.0,  control 
passes  to  statement  11  where  OS  ie  set  equal  to  -0,5  DS,  a  positive 


number,  which  causes  an  increase  in  wall  temperature  ZZ  in  statement 
10  where  ZZ  ■  ZZ  +  DS,  2)  if  DS  *  0.  0,  control  passes  to  statement  50, 

3)  if  DS  >  0.  0,  control  passes  to  statement  10  where  wall  temperature 
ZZ  la  increased  by  DS,  i.  e. ,  ZZ  *  ZZ  +  DS,  Statement  9,  for  ARGU  >  0.  0, 
teats  the  wall  temperature  increment:  1)  if  DS  <  0.0,  control  passes 
to  statement  10  where  wall  temperature  ZZ  is  decreased  when  ZZ  is 
set  equal  to  ZZ  *  ZZ  +  DS,  2)  if  DS  «  0.  0,  control  passes  to  statement  54 
3)  if  DS  >  0.  0  control  passes  to  statement  11  where  DS  is  set  equal  to 
-0.  5DS,  a  negative  number,  which  causes  a  decrease  in  wall  temperature 
in  statement  10,  ZZ  •  ZZ  +  DS.  After  passing  through  statement  10, 
for  all  cases  where  DS  ^  0.  0,  control  passes  to  statement  1  where 
IC0UMT  Is  Increased  by  1  and  the  procedure  repeated  with  the  new  value 
of  ZZ. 


In  statement  50,  ZZ  is  set  equal  to  whichever  value  Is  larger 
of  ZZ  or  0, 0,  1.  e.,  ZZ  cannot  be  negative.  In  statement  77,,  if  q0F  S  0.0, 
SPD  Is  set  equal  to  0. 0.  If  i*  >  0.  0,  SPD  is  set  equal  to  either 
SPD  or  0, 0,  whichever  is  the  larger  of  the  two  (cannot  have  a  negative 
SPD),  Then,  using  the  solution  for  SPD  and  ZZ,  the  mass  lose  rate 
Is  defined 

MD0T(J,  K)  ■  m  ■  SPD  [f>z  +  kj>) 
before  the  return  to  the  calling  subroutine  Is  executed. 

Statement  52,  which  is  reached  when  the  MATLN0  *  3  or  5  in 
laminar  Dow  or  when  MATLNtJ  ■  4  in  laminar  and  turbulent  Dow,  passes 
control  to  statement  54  when  MATLNtJ  *  5.  Otherwise,  it  calculates  the 
m ,  SPD,  and  ZZ  for  OTWR  in  laminar  Dow  if  MATLN0  ■  3,  or  the  laminar 
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OTWR  m  and  SPD  for  use  in  phenolic  nylon  equations  when  MATLN0  *  4. 

Defining  the  quantity 

QD<Z»TCW=  q  cw  =  QD0T  (JJH0LD,  KKH0LD) 
to  be  used  in  the  evaluation  of  m  and  SPD. 

The  value  of  is  tested  and  accordingly  the  appropriate 

equation  is  utilized  to  evaluate  m(  J,  K),  after  which  control  passes 
to  statement  57. 

qcw  <  13*  0  »(J.  K)  =  0.0 

13.0  <  qcw  <  15.  6  Ax(J,K)  =  .00021  +  .  00015  (qcw  -  13,0) 

15.6  5  q  <  25a  m(J,K)  *  -1.27424339  x  10’3  +  1.  3607l670x  10*4  6 

^ w  CW 

-  1.  09091516  x  1Q“6  qj*  +  7.  98275747  x  10-9  3 

CW  *cw 

-  1,65210579  x  10’ 11  q*w 

250.  <  9CW  <  3000.  A(J,K)  ■  -1,05650025  x  IQ’3  +  7,61118699  x  10“5 ^Lcw 
+  3.  34251700x  10“8  b  *w  -6.91682422  x  1Q*U  ^ 

qcw  >  3000.  m(J,  K)  ■  4cwd.  0  -  1500.  /h#}/  (3*40.+  8. 1  hs/RTo» 

In  statement  57,  the  quantity  M0TWR  (^jTWR)  i»  set  equal  to  *i(J,  K). 
then  *  ;w  is  tested  in  order  to  direct  control  to  the  appropriate  equation 
for  SPD  after  which  control  is  directed  to  statement  73. 


# 


I* 


q  <  1000.0  SPD  3  1.  61l5x  10”^  q  -  5.  23741  x  10”4 
CW  CW 

1000.  <  qcw  <  3000.  SPD  =  -1.  11196760X  10"4  +  4.  033767l9xl0“?qr 


- 10  2 

+  9.  70131261x  10  4 

W 

-  2.45527504  x  10“13  q  3 

CW 


‘CW 


>  3000.  SPD  -  fe0TWR/  (ft+Ap 


-13 

In  statement  73,  if  SPD  <1.0x10  ,  then  SPD  is  set  equal  to 

-.13  , 

1.  0  x  10  .  The  quantity  S0TWR  (S  is  set  e9ual  to  SPD,  then  if 

the  material  number  code,  MATLN0,  is  equal  to  4  (phenolic  nylon), 
control  passes  to  statement  53.  If  MATLN0  f  4,  the  SPDL  is  defined  as 
l°8l0  SPD  for  use  in  the  equation  for  wall  temperature.  The  lowest 
allowable  value  for  SPDL  is  -12.  583,  if  a  smaller  value  for  SPDL  results, 
then  SPDL  is  set  equal  to  the  limiting  value. 

ZZ  *6.  34634912  x  103  +  5.  50628796  x  102  SPDL  +  1.  96585366 xlO1  (SPDL) 

If  ZZ  >  4850.  ,  ZZ  is  set  equal  to  4850,  0  before  the  return  to  the 
calling  subroutine. 


Statement  53  is  the  beginning  of  the  phenolic  nylon  m  calculations. 
The  quantity  9^-^  1®  tested  and  control  directed  to  the  appropriate  m 
equation  after  which  control  passes  to  statement  61. 

(-2.  52288  +  7. 3759  x  10‘3  q  > 
4CW  S  100.0  m(J,K)  =  10.0  CW 
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10°.  <  qcw  S  3000.  m<  J,  K)  =  -  1.  62367642  x  10  J 

+  1.78922793  x  10"4  +1.  32113696  x  10"%^ 

-  5.08747513  x  10"12  q 


>  3000. 


m(J,  K)  ■  qcw(1.  0-  1700.0/hs)  / 
(1845.  +  11.  1  h  /RT  ) 

B  O 


If  ho(J,  K)  <  1,0  x  10  ,  then  m(J,  K)  is  set  equal  to  1.0  x  10 

-5 

If  the  previously  defined  <  1.  0  x  10  ,  then  “qtWR  ®et 

m 

equal  to  1.  0  x  10  ' .  The  wall  recession  rate  for  phenolic  nylon  is 
determined  as  a  ratio  of  the  S  for  OTWR  from  the  following: 

SPD  *  frlii.£L  s. 


m 


OTWR  * 


OTWR 


"5  -5 

If  SPD  <  1.  0  x  10  ,  then  SPD  is  set  equal  to  1.  0  x  10  .  The  quantity 

SPDL  is  defined  as  the  lc  SPD  for  use  in  determining  the  wall  temperature 

SPD  <  1.0  x  10"4  ZZ«  250.0  +  1756.0  (SPDL  +  5.0) 

SPD  >  1.0  x  10’4  ZZ  =  6.  94474035  x  10+3  +6. 45367 146:x  10+2  SPDL 

-  1.48589173  x  10+2  (SPDL)2 


If  ZZ  >  4850,  then  ZZ  is  set  equal  to  4850,  0  before  the  return  to  the 
calling  subroutine. 
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Statement  54  marks  the  beginning  of  the  carbon  phenolic  calculations 
in  laminar  flow.  The  quantity  QD4TCW  <),„)  i.  ...  equal  to 
QD0T(  JJH0LD,  KKH0LD)  and  tested  to  determine  the  appropriate  m 
equation.  After  the  evaluation  of  m(J,  K)  control  passes  to  statement 
68. 


a  <8.0 
°CW 


m{J,  K)  =  0.0 


8.°  <  qcw  <  11.3 

11.  3  <  q  <  23.  1 
s  4CW 


m(J,K)  =  6.  5788 xlO’4  -  1.  59773 x  10“4  q 

cw 

+  9.8485  x  10*6 

m(  J,  K)  =  1.1  x  10“4  +  9.  78022  x  10‘5  (c.  -  11.3) 

CW 


23.  1  <  qcw  <  1000  i$n(J,  K)  =  -  1.  73043255  x  10 

+  1.  25965766  x  10“4  ^ 

CW 

-8.56939032  x  10“8  q  2  +4.65548312  x  10"1  q  8 

CW  cw 


Statement  68  is  the  beginning  of  the  calculation  for  SPD;  q  is  tested 

CW 

to  determine  and  evaluate  the  appropriate  SPD  equation  before  control 
passes  to  statement  69. 

4CW  <  24.7  SPD  «  1.0  x  10“ 13 

24.7  $  qcw<275.  SPD  « -2.  212296558  x  10“6  +  1.  18955951  x  10“7  4  cw 

7  1.400,8706  a  Hf 10  <4 


#' 
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275.  0  s  qcw  <  1000.  SPD  -  7.  66757321  x  10"5  -  4.  95033115  x  10"7  q  cw 

+  1.  55581653  x  lO-9 

-  8.49239390  x  10"13  q  3 

CW 

-4  -7 

qcw  >  1000.  SPD  =  -3.  186484  x  10  +  3.869  x  10  qcw 

-10  .  2 
+  2.  171792  x  10  qcw 

Following  statement  69,  SPDL  is  defined  as  log1Q  SPD  for  use  in  evaluating 
the  wall  temperature 

ZZ  *  6.68741134  x  10+3  +  4.46431845  x  10+2  SPDL 

+  1.20991623  x  101  (SPDL)2 

If  ZZ  >  6160.  0,  then  ZZ  is  set  equal  to  6160.  0  before  control  returns  to 
calling  subroutine. 

Statement  55  ia  the  beginning  of  the  mass  loss  rate,  wall  recession  rate, 
and  wall  temperature  calculations  for  carbon  phenolic  material  which  are 
dependent  on  some  of  the  quantities  calculated  in  the  iterative  solution. 

QDNET  *  4net*  kc  -4, 

ABAR  *  A  *  C_j  (6160.  -  Tw  )  +  F 
P2  0 

BBAR  ■  5  ■  ST 

QSTAR  ■  q*  «  A  +  B  hs/RT 
*  o 

fai(J,  K)  ■  k  net  / 
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If  q  net  <  0.0,  K)  =0.0 

SPD  ®  0.  8  m(  J,  K)  '■Pi 

If  SPD  $  l.OxlO'10,  SPD  =  1.0  x  I0"1G 
SPD  =  log1Q  SPD 

If  SPDL  <  -18.  058,  then  SPDL  is  set  equal  to  -18.  058. 

The  wall  temperature  is  then  calculated  from 

ZZ  =  6.68741134  x  10+3  +  4.46431845  x  102  SPDL  +  1.  20991623  x  101 

SPDL2 

before  the  return  to  the  calling  subroutine  is  accomplished. 


5.  Other  Information 


A.  SUBROUTINE  EVIL  is  called  by  SUBROUTINE  MASSL0. 

B.  SUBROUTINE  EVIL  calls  in  the  following  functions: 

1.  DEXP 

2.  DSQRT 

3.  DL0G 

4.  DL0G1O  ‘ 

5.  FDXPD 
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SUBROUTINE  TpMALp 


1.  Purpose 

SUBROUTINE  T0MAL0  integrates  the  mass  loss  rates  along  the 
body  to  obtain  the  time  rate  of  change  in  vehicle  weight  attributable  to 
ablation  effects.  Both  the  laminar  and  the  turbulent  equations  for  the 
sharp  cone  are  a  result  of  integrating  analytically.  On  the  other  hand, 
the  integration  of  laminar  and  turbulent  blunt  cone  mass  loss  is  carried 
out  by  a  trapezoidal  rule  integration. 


2,  Input 

mmmmmwmw 


i 

_ 

Occur/Noccur  Source  of  , 


Name 

Symbol 

Number 

Input 

Deac] 

C0ST 

cos  0 

008 

CHNTBL 

cosine  of  cl 

LA 

Jj3< 

033 

PRELIM 

4 

instantaned 

d 

LAMDA 

MD0T,  32 

A 

m. 

i 

032 

2708- 

2739 

PRELIM 

EVIL 

instantanee 

matrix  of  rj 

t 

PI 

TV 

042 

SR2490 

mathematic 

RN 

Rn 

052 

DEREQ 

iratantaneo; 

SINT 

sin  0 

064 

CHNTBL 

sine  of  con 

i 

TANT 

TAN  e 

070 

CHNTBL 

l 

tangent  of  c 

XLA,  8 

(X/La)i 

815- 

822 

AERODY 

body  etatio 

Z 

Z 

091 

DEREQ 

altitude 

ZTR 

ZTR 

092 

PRELIM 

transition  ; 

< 

3,  Output 

\ 

WD0T 

W 

086 

change  in  v 
result  of  it 

j  n  H  tm  n 

JLI*  lAJIIlTO  j 

\ 


ixo  of 
\ut 


Description 


Units 


tODY 

LEQ 

;lim 


cosine  of  cone  half  angle 

instantaneous  axial  length  ft. 

instantaneous  bluntness  ratio 

2 

matrix  of  mass  loss  rates  atprescribed  body  points  lbm/ft  -  sec. 

mathematical  constant,  pi 

instantaneous  nose  radius  ft, 

sine  of  cone  half  angle 

* 

tangent  of  cone  half  angle 

body  station  in  percentage  of  axial  length 

altitude  ft. 

transition  altitude  ft. 


change  in  weight  per  unit  time  due  to  ablation  only  -  lb/ sec 

result  of  integrating  fti's  over  the  body  at  any  instant 
in  time 


4.  Numerical  Procedure 


The  equations  of  T0MAL0  may  be  grouped  into  three  main 
flections  (1)  sharp  cone  calculations,  (2)  laminar  blunt  cone  calculations, 
(3)  turbulent  blunt  cone  calculations. 

The  first  statement  of  the  subroutine  tests  the  bluntness  ratio 

in  order  to  direct  the  calculations  to  the  appropriate  set  of  equations, 

-3 

If  LAMDA  £  10  ,  the  integration  of  mass  loss  along  a  sharp  cone  is 

determined  by  from  the  following  equations: 

Z  >  ZTR  M*  2.9618  {V  nf2,8)  L  2 

*  a  cos  0 

Z  <  ZTR  M_  3  3,  04  (2)°*  2  n<3,8  )  L  2 

T  a  cos  6 

The  flow  of  the  subroutine  then  circumvents  the  blunt  cone  calculations 

-3 

and  goes  to  statement  3,  If  LAMDA  ^10  ,  subroutine  flow  skips 
to  statement  2  and  performs  the  blunt  cone  calculations.  The  geometric 
factors  TEM,  TEMl,  TEM2,  and  TEM3  are  defined  as 

TEM  «  TTLa*  La/  (cos  6  *  cos  0) 

TEMl  *  R  (1-sin  0)/La 
n 

TEM2  ■  0.  5  sin  0 

TEM 3  ■  (, 766  -  sin®)  /  ,234 

If  Z  is  less  than  ZTR,  control  is  directed  to  statement  4,  the  beginning  of 
the  turbulent  calculations.  If  Z  is  greater  than  or  equal  to  ZTR  the 
subroutine  proceeds  to  the  laminar  calculations. 
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A  trapezoidal  rule  integration  is  used  to  obtain  the  blunt  cone 
laminar  mass  loss  rate.  First,  the  contribution  from  the  vehicle  nose 
cap  is  calculated  using  the  equation 


M  =  7TRn(l. -sin  6)  (m(l,  1)  +  ft<2,  1))  Rn. 
n 


Next,  the  contribution  of  the  conical  frustum  segments  are  determined 
from  the  equation 


M  =  TEM 
c. 

l 


[‘XT’,,  [tEMI  +  TEM2((  £) 

4-3  " 


i+  1 


+  ( 


M  =  M  *  (m(2,  i)  +  m ( 2,  i  +  1)  ) 

C  V 

i  i 


for  i  B  1,  2, ...  6 


Then,  subroutine  control  skips  around  the  turbulent  blunt  cone  calculations 
to  statement  7. 


The  turbulent  flow  equations  for  integrating  blunt  cone  mass  loss 
rate  are  similar  to  those  for  laminar  flow.  The  nose  cap  contribution  is 


M  ■  ,  7351*R  *  R  (m(l,  1)  +  m(4,  1)  +  (m(4,  1)  +  &i(3,  1))  TEM3) 
h  n  n 


For  the  conical  frustum  segments. 


1-289 


!  ,i|||l  . I . ililnll  |i  ml  . . II  ■lli--i|ilMlllllli-!9|llli^ii|ll-:qh  ■IIMlIMHiiililMlii'l  <1  niinl 


M  •  TEM *  ((  £  I  -  (33->)  +  TEM2  (  (  £  )  ♦  <  £  >  >) 

i  1+1  i  i  +  1  l 

M_  *  Mr  (m(3,  l)  +  m(3,  i+1)) 

1  i 

for  i  *  1,  2, ...  6 

The  summation  of  the  contributions  from  the  noBecap  and  conical 
frustum  segments  is  done  in  the  equations  following  statement  7, 


N4  ■  M 
T  n 


M_  *  M  +  2.  M 

T  T  1 


•  . 

In  statement  3  W  is  set  equal  to  (—  then  the  return  to  the 
calling  subroutine  is  accomplished. 


5.  Other  Information 


A.  SUBROUTINE  T0MALO  calls  in  the  functions 

1.  DSQRT 

2.  FDXPD 

B.  SUBROUTINE  T0MAL0  is  called  by 

1.  SUBROUTINE  VIXEN 

2.  SUBROUTINE  DEREQ 
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SUBROUTINE  NOSE B L 


1.  Purpose 

SUBROUTINE  NG&SEBL  calculates  the  derivatives  of  the  nose 
radius  and  base  radius  with  time,  using  body  geometric  parameters  and 
surface  recession  rates  at  the  stagnation  point  and  at  the  maximum 
diameter  point  of  the  cone.  The  shape  change  calculation,  which  assumes 
a  constant  cone  half  angle  and  retention  of  sphere  cone  shape  is  performed 
only  in  continuum  flow.  In  the  rarefied  flow  regime,  the  derivatives 
are  set  equal  to  zero. 
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1 .  Input 

^indicates  integer  quantity  and  N0CCUR  number  code. 

_  _  i 

Name 

Symbol 

Occur/Noccur 

Number 

Source  of 

Input 

- - 

Desc 

C0ST 

cos  9 

008 

CHNTBL 

cosine  of  < 

LAMDA 

X 

032 

PRELIM 

instantane 

SD0T,  32 

s . 

1 

2740- 

2771 

MASSLO 

surface  r^ 

SINT 

sin  @ 

064 

CKNTBL 

sine  of  col 

XBAR 

51 

090 

PRELIM 

viscous  in 

XUP 

X 

up 

237 

READIT  or 

SR2490 

value  of  X 

ty 

Z 

091 

DEREQ 

-altitude 

ZTR 

ZTR. 

092 

PRELIM 

transition 

3.  Output 

RBD0T 

Ab 

060 

time  rate  < 

RND0T 

Rn 

059 

time  rate  1 

\ 

K  1-292 

V 

^  Lj 

S’BL 


surface  recession  rate  along  body 
sine  of  cone  half  angle 


ft/ sec 


,IU 

'IT  or 
'0 

:Q 

iIM 


viscous  interaction  parameter 

value  of  XBAE  at  start  of  continuum  flow 

altitude 

transition  altitude 


ft. 

ft. 


time  rate  of  change  of  nose  radius  ft/ sec 

time  rate  of  change  of  base  radius  ft/ sec 


I 
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4.  Numerical  Procedures 


In  statement  1,  the  quantity  XBAR  is  tested  against  XUP. 

If  XBAR  >  XUP,  which  indicates  non-continuum  flow,  the  control 
is  directed  to  statement  2  and  the  subsequent  zeroing  of  the  derivatives 
RND0T  and  RBD0T  and  return  to  the  calling  subroutine.  If  XBAR  < 
XUP,  continuum  flow,  the  numerical  calculations  for  the  derivatives 
proceed. 

First  the  quantity  RND0T  is  calculated  from  the  stagnation 
point  surface  recession  rate  and  the  sine  of  the  cone  half  angle. 

Rn  *  S(l,  1)  ffr-  9 

The  bluntness  ratio,  LAMDA,  is  then  tested  and  for  values  greater 
than  10  ,  control  is  directed  to  statement  3.  Here,  the  altitude  Z 

is  tested  against  transition  altitude.  If  Z  >  ZTR,  the  quantity  TEM 
is  defined  as  the  laminar  blunt  cone  side  wall  recession  rate  at  cone 
maximum  diameter.  If  Z  <  ZTR,  the  quantity  TEM  is  defined  as  the 
turbulent  maximum  diameter  side -wall  recession  rate. 

Z  <  ZTR  TEM  ■  S  (3,  7) 

Z5  ZTR  TEM  c  S  (2,7) 

Then  in  statement  4,  RBD0T  is  defined  as  6b  •  -TEM/sin  9 
and  is  followed  by  the  return  to  calling  subroutine. 

If  the  bluntness  ratio  is  less  than  or  equal  to  10”3,  the  sharp 
cone  maximum  diameter  sidewall  recession  appropriate  to  the  flow 
regime  is  used  in  defining  the  parameter  TEM. 
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# 


Z  <  ZTR  TEM  «  0,  8706  *  SD0T(3,  8) 

Z  >  ZTR  TEM  *0. 7O71*SD0T(2. 8) 

The  calculations  are  directed  to  statement  4,  where  ftb  is  defined,  and 
then  returned  to  the  calling  subroutine. 


5,  Other  Information 

A,  SUBROUTINE  N0SEBL  calls  in  no  other  subroutines 
or  functions. 

B.  SUBROUTINE  N0SEBL  is  called  by  SUBROUTINE  DEREQ. 


I 


k 


1-294 

* 


j 


. . . . 


v 


i'im-|i  ini  ini  iii  h#  u-pmi-mm  i  TW'ttM»inwiim»i  n» 


* . . . .  .  . . .  . . . 


3.  1.  6  Rotational  Calculations 


The  calculations  for  angle  of  attack  are  contained  in  SUB¬ 
ROUTINE  ROTATE.  Two  methods  for  determining  angle  of 

i 

i 

attack  are  available.  The  first  is  an  uncoupled  three  degree 
of  freedom  in  rotation  calculation.  The  second  is  a  simp¬ 
lified  model  for  calculating  the  angle  of  attack  which  employs 
Bessel  functions  of  the  first  kind  and  Neumann  functions 
(Bessel  functions  of  the  second  kind). 


SUBROUTINE  ROTATE  (DERIV,  LP) 


1.  Purpose 

In  order  to  incorporate  the  effects  of  angle  of  attack  on  the  drag 
coefficient,  SUBROUTINE  ROTATE  may  be  employed  to  determine  angle 
of  attack  used  in  SUBROUTINE  DRAGC0  calculations.  The  solution  may 
be  accomplished  by  either  of  two  methods,  where  the  value  of  the  input 
quantity  L0PT  is  the  control  parameter.  When  L0PT  equals  zero,  an 
uncoupled  three  degree  of  freern  in  rotation  calculation  is  performed  in 
which  the  following  derivatives  are  calculated: 

# 

DERIV(8)  <= 

DERIV(9)  =  0 

a 

DERIV(IO)  *  ‘<t> 

DERIV(ll)  *  Q 

DERIV(12)  *  R 

0ERIVO3)  *  P 

A  simplified  angle  of  attack  solution  requiring  no  integration  is  substituted 
when  L0PT  is  equal  to  2. 


. . . .  •-  111  . . . . . 
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2.  Input 


*  indicates  integ 

er  quantity  and  an  NOCCUR  number. 

i 

j 

Name 

Symbol 

Occur/Noccur 

Number 

Source  of 

Input 

Dd 

ALBARP 

a1 

131 

VIXEN 

last  minimo 

ALST 

aSTOP 

122 

SR249G  or 
READIT 

angle  of  attj 

ALWIG2 

a' 

130 

VIXEN 

maximum  p 

AREF 

A 

REF 

001 

PRELIM 

reference  a 

CD 

CD 

016 

DRAGCO 

total  drag  c 

CMALP 

Cm 

a 

013 

PRELIM 

partial  deri 

CMQ 

Cm 

q 

020 

PRELIM 

damping  in 

CNALP 

Cn 

a 

012 

PRELIM 

partial  deri' 

D 

D 

021 

PRELIM 

base  diametl 

G 

g 

027 

SR2490  or 
READIT 

conversion  : 

L0PT 

- 

07  * 

SR2490  or 

READIT 

trajectory  cj 

MAX TAB 

- 

04  * 

CHNTBL 

number  of  \| 

MX 

M 

X 

210 

PRELIM 

thrusting  m| 

MY 

M 

y 

211 

PRELIM 

thrusting  ml 

MZ 

M 

z 

212 

PRELIM 

thrusting  mj 

P 

P 

043 

DEREQ 

component  <j 

PHI 

044 

DEREO 

Euler  angle 

PI 

042 

SR2490 

mathematic 
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■urce  of 
Input 


Description 


Units 


J.XEN 

• 

last  minimum  in  a' 

radians 

k.2490  or 
pADIT 

angle  of  attack  stop  control 

radians 

I’XEN 

maximum  preceding  last  maximum  in  a1 

radians 

[  ■?,,  L  XiJ  I M 

f 

reference  area 

2 

ft 

RAGCO 

« 

total  drag  coefficient 

- 

RELIM 

f 

partial  derivative  of  moment  coefficient  with  a 

1 /radian 

3.ELIM 

damping  in  pitch 

- 

ilELIM 

partial  derivative  of  normal  force  coefficient  with  a 

1 / radians 

rlELIM 

base  diameter 

ft 

12490  or 
t  ADIT 

conversion  from  slug  to  lbm 

lbm/ slug 

i  2490  or 

£adit 

trajectory  option  code 

- 

iINTBL 

| 

number  of  values  in  X^.„/D,  I,  I  table 

CG  x 

- 

jlELIM 

thrusting  moment  about  X  axis 

ft— lb 

IELIM 

thrusting  moment  about  Y  axi6 

ft-lb 

IELIM 

thrusting  moment  about  Z  axis 

ft*  lb 

f^REQ 

! 

component  of  angular  velocity 

rad /sec 

M4  j3V#nf*  Vt# 

’IT 

Euler  angle  (p 

radians 

f 

12490 

mathematical  constant 

m 

2.  Input  (Concl'd) 


1  h  nun . .  n  mm  mi  hi  m  hip  h  m  him  in  Hiwmrnh  irnini«|iiiiHi>iii  mm  'h„ 


Occur /Noccur 

Source  of 

- - - 1 

Name 

Symbol 

Number 

Input 

1 

PSI 

v|^ 

045 

DEREQ 

- 1 

j 

Euler  angl^ 

Q 

Q 

050 

DEREO 

component; 

QD 

qD 

051 

PRELIM 

dynamic  pr 

RH01N1 

fiml 

056 

PRELIM 

4, 

free  etrearl 

RH0IN.F 

P~ 

055 

PRELIM 

free  strean 

SINGO 

sin  (Tf^) 

221 

F123 

sine  of  fligl 

SMR 

R 

065 

DEREQ 

component 

T 

t 

075 

VIXEN 

time  for  cd 

TAB  I 

Stable) 

894- 

943 

CHNTBL 

moment  of 

TAB  IX 

I  (TABLE) 

X 

944- 

993 

CHNTBL 

transverse 

TAB  Z 

Z(  TABLE') 

994- 

1043 

CHNTBL 

altitude  tab 

TCRIT 

tcrit 

077 

READIT 

limit  on  cy 

TEC0N 

rp 

EC  ON 

078 

SR 2490  or 
READIT 

limit  on  c; 

THEALO 

e 

a 

113 

n  IT  A  HTT 
x\JD/u/ J.  X 

value  of  8^ 

THEALP 

0 

0 

a 

071 

DEREQ 

instantaned 

V 

V 

082 

DEREQ 

velocity 

w 

w 

084 

DEREQ 

initial  weig 

XBAR 

1 

090 

OipflT'T  fTKrf 

viecous  fcird) 

XUP 

X 

M'fjp 

237 

PRELIM 

viscous  irat< 
on  continuu 

,Z 

z 

091 

DEREQ 

altitude 

zo 

7 

0 

108 

m  :®T  AfTlfcirir 

IkV  JlCa  Jft  'IX  X  X 

initial  akin 

* '  «*»i  inmii 
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pee  of 

[put 


Description 


Units 


:req 

► 

i^REQ 

IELIM, 

. 

IELIM 

IELIM 

23 

EREQ 

XEN 

iNTBL 

INTBL 

INTBL 

CADIT 

[2490  or 
CADIT 

SABIT 

CREQ 

SREQ 

2R.EQ 

LELIM 

^il«*  1  ^4 

QREQ 

lAO'IT 


Euler  angle  ^ 
component  of  angular  velocity 
dynamic  pressure 

3 

free  stream  density  in  Ibm/ft 

3 

free  stream  density  in  slug/ft 

sine  of  flight  path  angle  at  reentry 

component  of  angular  velocity 

time  for  complete  cycle  of  angle  of  attack 

moment  of  inertia  table 

transverse  moment  of  inertia  table 

altitude  table  for  X_  _/D,  I,  I  tables 
Cu  x 

limit  on  cycle  time 
limit  on  cycle  time 
value  of  8  at  reentry 
instantaneous  value  of  0^ 
velocity 

initial  weight  -  ablated  weight 
viscous  interaction  parameter 

viscous  interaction  parameter  -value  for  upper  bound 
on  (continuum  .flow 

altitude 

initial  altitude 


I-E98 


radians 

rad/sec 

lb/ft^ 

lbm/ft^ 

3 

slug /ft 

rad/sec 

seconds 

2 

slug -ft 

2 

slug -ft 
ft 

seconds 

seconds 

radians 

radianB 

ft/  sec 

lb. 

i.0* 

ft. 

ft 
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3.  Output 


Name 

Symbol 

Occur 

Number 

: 

DesS 

X 

d^ik>  L  nd/V  X-j  X 

a/  Initial 

229 

ratio  of  a  t 

ALPHA 

a 

002 

angle  of  att 

ALPRIM 

a1 

003 

i 

angle  of  att 

i 

CM 

C 

m 

202 

moment  CO' 

CN 

C 

n 

203 

normal  for< 

DERIV,  16 

- 

- 

derivatives 

LP 

- 

_  sfie 

error  code 

SMF 

£ 

081 

frequency  c 

.  . . -'flHfi, . iiaiWiiip 


Description 


Units 


ratio  of  a  to  a  at  initial  condition 

angle  of  attack  for  use  in  Cn  /  C_.  relation 

yp  Up 

a  a  «  0 

angle  of  attack  used  in  maximum-minimum  testing 

moment  coefficient 

normal  force  coefficient 

derivatives  to  be  Integrated  in  ADM4RK 


radians 

radians 


error  code 

frequency  of  angle  of  attack  cycle 


cycles/sec. 


'  -  ■ - - 


4,  Numerical  Procedure 

The  control  parameter,  L0PT  ie  tented  in  the  first  statement  of 
the  subroutine.  If  LfftPT  is  non-sera,  the  derivatives  of  the  Euler 
angles  and  of  the  angular  velocities,  DERIV(J)  for  J  *  8  through  13,  are 
seroed  by  statement  9,  which  is  called  for  each  value  of  J  by  a  D0  state- 
ment.  Then,  for  L0PT  equal  to  2,  control  passes  to  statement  15;  for 
other  non- sera  values  of  LQUPT  control  returns  to  the  calling  subroutine. 
When  L0PT  is  sera,  the  seroing  of  the  derivatives  is  bypassed  and 
control  passes  to  statement  8. 

Statement  8  is  the  beginning  of  the  three  degree  of  freedom  in 
rotation  calculations.  First  the  sines  and  cosines  of  the  Euler  angles 
V  .  and  eQ  are  determined.  The  derivatives  of  the  Euler  angles 
are  then  found  from  the  following  formulations; 

DERIV(8)  -  (Rcoi  *  +  Q  sin  f)  cos  9 

a 

DERIV(9)  *  Q  cos  f  -  R  sin  * 

DERIV(IO)  ■  P  +  DERIV{8)  sin  6 

a 

The  product  cos  8^  cos  Ik  is  tested;  if  less  than  aero,  an  error  code  LP 
is  set  equal  to  6,  an  error  message  is  printed  out  by  statement  100,  and 
control  returns  to  the  calling  subroutine.  If  cos  0  cos  is  greater 
than  or  equal  to  zero,  the  angle  of  attack  a1  is 

a"  *  cos"  1  [co.  «a  CO.  *] 
and  using  this  result 

C  «  C  a', 
n  n 

a 
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Bypassing  the  error  message  and  going  t<-  statement  4,  the  moments  of 
inertia  I  and  1  are  determined  from  the  tabular  inputs,  using  FUNCTION 

X 

TABLE,  and  tested.  If  I  equals  zero,  control  passes  to  statement  13 
where  an  error  message  is  printed,  error  code  set  to  6,  and  return  to 
calling  subroutine  enacted.  If  1^  equals  zero,  control  goes  to  statement 
14  where  a  similar  procedure  occurs.  If  both  I  and  I  are  non-zero, 
the  following  terms  are  defined  in  preparation  for  calculation  of  the 
remaining  derivatives: 

C  *  C  a' 
m  m 

a 

TEMl  ■  q_  A  D/I 
ref 

if  a'  «  0  TEM2  *  0.  0 

if  o'  #  0  TEM2  -  C  /sin  a' 

m 

TEM3  ■  sin  «  cos  V 
a 

TEM4  -0.5  D  Cm  /V 
mq 

TEM5  •  (I  -  I*  P  /  I 
x 

These  are  used  to  find 

DERI V( II)  »  TEMl(TEM2(TEM3cos  f  +  sln^sin^)  +  I TEM4)Q) +(TEM5)  SMR  • 

DERIV(  12)  *  TEMl(TEM2{sin  ^cos  TEM3  sin  0  +  (TEM4)SMR)  -(TEM5)  Q  + 
M 

DERW13)  - 

X 

The  viscous  interaction  parameter  is  tested.  If  the  XBAR  is 
greater  than  or  equal  to  XUP,  indicating  rarefied  flow  regime,  the  quantity 
a,  ALPHA,  is  set  equal  to  a',  ALPRIM,  in  statement  li  and  control  returns 
to  the  calling  subroutine.  If  XBAR  is  less  than  XUP,  continuum  flow, 
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control  passe®  to  statement  10,  where  the  cycle  time  T  is  tested.  If 
T  equals  zero,  which  indicates  that  a  complete  cycle  has  not  been 
completed  and  a  maximum  and  minimum  defined,  control  passes  to 
statement  11,  a  is  set  equal  to  a',  and  return  to  calling  subroutine  is 
executed.  If  T  is  non-zero  and  greater  than  or  ®qual  to  the  input 
TCRIT,  control  passes  to  statement  11.  If  the  non-zero  T  is  less 
than  TCR1T,  but  greater  than  or  equal  to  TEC0h^an  integrated  angle  of 
attack  effect  is  used  in  DRAGC0,  control  passes  to  statement  12, 
which  returns  it  to  the  calling  subroutine.  If  the  non-zero  T  is  less 
than  TCRIT  and  less  than  TEC0N,  the  angular  velocity  P  is  tested  to 
determine  the  appropriate  definition  for  effective  angle  of  attack  as 
follows : 


P  *  0 

a  »  2. 0  ~ 

7T 

P  t  o 

a  *  0.  5  (a1  + 

- 

where  a'  is  the  last  minimum  and  a  is  the  maximum  preceding  the 
last  maximum,  a'.  The  control  passes  to  statement  12  waich  returns 
it  to  the  calling  subroutine. 

In  place  of  this  rather  complicated  and  time  consuming  calculation, 
a  simplified  angle  of  attack  model  is  available  in  the  equations  beginning 
with  statement  15,  when  L0PT  is  set  to  2.  Statement  15  defines  code 
LL  used  in  function  TABLE.  If  altitude,  Z  ,  is  less  than  or  equal  to 
100,  0  feet  control  passes  to  statement  90,  where  a'  is  zeroed,  the 
trajectory  option  code  LGfPT  is  set  to  1  for  a  particle  trajectory,  and 
return  to  the  calling  subroutine  is  executed.  If  Z  is  greater  than 
100.  0  feet,  calculations  continue  with  the  determination  of  I  from  the  input 
table  using  FUNCTION  TABLE.  If  I  is  zero,  the  error  code,  error  message 
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and  return  to  calling  subroutine  following  statement  13  are  summoned. 

When  1  is  non- zero,  calculations  continue  by  defining  the  quantity  BETAZ 

* 

BETAZ  *  loge  ( pm j/.  076474  lbm/ft3  ) 

unless  BETAZ  H  ,0001  then  BETAZ  is  set  equal  to  .  0001.  Then, 
if  Z  equals  ZQ  since  no  value  for  has  been  determined  yet,  is 
set  to  a  nominal  value  of  0.  8.  The  constants  AK1  and  AK2,  and  the 
cycle  time  TBAR  are  defined  as  follows: 

Cm  °2w  / 

AK1  *  Aref  g  m‘  0  Cn  *  cn  +  -  a  )  /  (4.0  BETAZ  W  |sin  t  |  ) 

U  a  I  8  '  ° 


Bin  Y q  | 


AK2  =  Aref  g  Z  {{Cn  -  CD)  BETAZ  - - 


'm. 


DW 


I  g 


/ 


■  10 


(2,  OW  {BETAZ*  sin*  V  ) 

o 

TBAR  “  -  2.  0  7TZ/  (BETA*V  sin  T  /AK2  *j£J 

If  the  cycle  time  t,  TBAR,  is  less  than  or  equal  to  Input 
quantity  TEC0N,  preset  to  2,  0  seconds,  or  is  less  than  1.  0  x  10 
control  passes  to  statement  16  and  a  non-oecillatory  envelope  calculation 
for  angle  of  attack.  If  TBAR  Is  greater  than  both  TEC0N  and  1.  0  x  10'10, 
an  oscillatory  solution  employing  Bessel  functions  is  performed  as  described 
below.  The  frequency  F,  SMF,  is  determined  from  t  as  1/t.  The 
argument  of  the  Bessel  functions,  TEM,  is  defined  by 


TEM  -  2,  0  /(AKl  +  AK2) 
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and  the  subroutines  BESSEL(TEM,  0.0  DO,  1.0  D*5,  XJR,  XJI,  1) 
arl  NEUMAN  (l.  0  D-5,  TEM,  0.0  DC,  10,  1.0D1,  XNR,  XH1,  XJR(l), 
XJI(i),  XJR(2),  XJI{2),  1)  are  called  in  to  calculate  the  Bessel  functions 
of  the  first  and  second  kind  of  the  zeroth  and  first  order,  Following 
these  calls  is  a  group  of  equations  for  quantities  defined  at  the  reentry 
altitude  Z0  which  are  bypassed  when  Z  t  ZQ.  When  Z  *  Z0, 

d(TEM)/dZ  *  -0.5  TEM{BETAZ/Z) 

DEWAC2  «  denominator  of  AC 2  *  ^(TE^<*I^(»  Y^TEM)  x  Jq(TEM) 

+  Jj(TEM)  *  Y^TEMjj) 


NUMERl  ®  first  part  of  numerator  of  AC 2  ■ 

(  Jq{TEM)  AK1  9q  2.  3769  x  10"3  BETAZl  /  {Z  exp  (Atfiy^ 
0 

+  BETAZH 


NUMER2  *  second  part  of  numerator  of  AC2  * 

•a  (d( TEM)/dZj(-Jj(TEM)  exp(-AKl^)) 
o 

AC2  >  (NUMERl  -  NUMER2)  /  DENAC2 

ACl  <”>P  (-AKI fij  -  AC 2  Y0(TEM)J/  Jo(TEM) 

•'■Wui  -  •** ,AK1  />„'}'* . 


Then,  for  all  Z  >  100.  0  feet 

a*  ■  exp  (AKly^J  (ACl  J^TEM)  ♦  AC2  Yq( TEM)) 

C  ■  C„  a' 
n  “a 

C  ■  C  a* 
m  ma 

a  ■  a' 
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after  which  control  i®  returned  to  the  calling  subroutine. 


5,  Other  Information 

A,  SUBROUTINE  ROTATE  is  called  in  by  SUBROUTINE  DEREQ. 

B,  SUBROUTINE  ROTATE  calls  in  the  following  program 
subroutines  and  functions: 

1.  SUBROUTINE  BESSEL 

2.  SUBROUTINE  NEUMAN 

3.  FUNCTION  TABLE 

C,  In  addition,  the  following  library  functions  are  utilized: 

1,  ACOSR 

2,  DEXP 

3,  DSIN 

4,  DCOS 

5,  DSQRT 

6,  DLOG 


The  calculations  for  the  Bessel  function  of  the  first  kind 
are  contained  in  subroutines  BESSEL,  JNXBES,  and  DRLIM. 
The  Bessel  functions  of  the  second  kind  (Neumann  functions) 
are  calculated  by  subroutines  NEUMAN,  NEUMFO,  NEUMOO, 
DIVMLT,  NEUMNO,  and  NEUMN1. 


SUBROUTINE  BESSEL  (XR,  XI.  C,  N,  ZNRO,  ZNI0„  IT) 
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1.  Purpose 

SUBROUTINE  BESSEL  calculate s  for  complex  arguments  the 
Bessel  function®  of  integral  order  rero  through  N,  where  the  maximum 
value  for  N  is  twenty-four. 

2.  Input 


Fortran  Symbol 

Source  of  Input 

Description 

C 

ROTATE 

convergence  criterion 

IT 

ROTATE 

integer  code  *  1 

N 

ROTATE 

integer  indicating  maximum  order 
to  be  calculated 

XI 

ROTATE 

imaginary  argument  of  Bessel 
function 

XR 

ROTATE 

real  argument  of  Bessel  function 

S.  .Output 

Fortran  .Symbol 

Description 

ZNIO  imaginary  part  of  eolation  vector 

ZffRG  real  part  of  solution  vector 


4,  Numerical  Procedure 

The  descriptive  use  of  the  arguments  Cor  effective  and  proper  use 
of  the  subroutine  .are  as  follows: 


k 

HOI 

4 
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XR  real  argument  of  the  Bessel  function 

XI  imaginary  argument  of  the  Bessel  function 

-5 

C  convergence  criterion  for  power  series  (10  gives 

good  results) 

N  maximum  order  of  Bessel  function  (24  is  maximum 

allowed ) 

ZNRO  real  part  of  the  solution  vector  (dimension  25, 

ZNRO  (i„IT)  is  zero  order,  ZNR0(2,IT)  is  first  order,  etc.  ) 

ZN10  imaginary  part  of  the  solution  vector  (dimension  25, 

ZNI0(1,IT)  is  zero  order,  ZNI0(2,  IT)  is  first  order,  etc.  ) 

IT  integer  code 

The  sum  of  the  squares  of  XR  and  XI  is  calculated  and  designated  as 
B  and  the  integer  N1  is  set  equal  to  N  +  1.  Then  B  is  tested.  If  B  =  0, 
subroutine  continues  to  statement  4.,  where  the  real  and  .maginary  parte  of 
the  solution  vectors  for  orders  N  and  N  +  1  are  set  equal  to  zero.  Control 
then  passe*  to  ■statement  5,  where  the  recursive  formula  is  used  to  zero 
"the  real  and  imaginary  parts  of  the  solution  vectors  for  dll  remaining  orders 
down  to  zeroth  order.  If  B  #  '0,  the  group  of  equations  beginning  'with 
‘Statement'*  is  bypassed  and  control  passes  to  statement  2.  Here  SUBROUTINE 
JN3CBE6  is  called  in  to  generate,  using  "the  standard  power  'series,,  the 
real  and  imaginary  parts  of  the  solution  vectors  (Bessel  functions )  of  Nth 
and  N-l  order,  i.a,,  ZNR0(N  +  1,  IT),  ZNI0(N  +  1,  IT)  and  ZNR0(N,  IT), 

ZNIOlN,  IT)  respectively.  The  quantities  XRB  and  XIB  are  then  defined 
as 

XRB  *  XR/(XR2  +  XI2) 

XIB  «  -  XI/ (XR2  +  XI2) 

before  control  passe*  to  statement  5.  The  following  recursive  formulas 
are  Chen  used  to  calculate  the  real  and  imaginary  parts  of  the  solution 
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vectors  for  all  remaining  orders  down  to  zeroth  order. 

ZNR0{N-I+1,  IT)  =  2.  0  (N-I+l)  [ZNRO  (N-I+2,  IT)  *  XRB 

-  ZNI0(N-I  +  2,  IT)  *  XIB]  -  ZNR0(N-I  +  3,  IT) 

ZNI0{ N-I+l,  IT)  =  2.  0{N-  I  +  1)  jzNRO  (N-I+  2,  IT)  *  XIB 

-  ZNI0(N-I  +  2,  IT)  *  XRBj  -ZNI0(N-I  +  3,  IT) 

for  1=2  to  N 

For  real  arguments  between  1  and  10  there  is  better  than  6  place 
accuracy.  For  complex  arguments  of  increasing  absolute  value,  there  will 
be  diminishing  accuracy.  However,  the  lower  orders  will  have  more 
significant  figures.  In  order  to  obtain  accurate  results  for  the  lower  orders, 
it  is  necessary  to  use  large  N.  Real  arguments  will  give  answers  with  more 
significant  figures  than  complex  arguments. 

3.  Other  Information  \ 

A.  SUBROUTINE  BESSEL  calls  in  SUBROUTINE  JNXBES. 

B.  SUBROUTINE  BESSEL  is  called  by  SUBROUTINE  ROTATE. 


SUBROUTINE  JNXBES  (ZR,  ZI,  NN,  C,  ZNR,  ZNI) 


1.  Purpose 

SUBROUTINE  JNXBES  is  called  by  SUBROUTINE  BESSEL  to 
calculate  the  Bessel  functions  of  the  maximum  order  specified,  N,  and 
of  the  N-l  order. 


2.  Input 


*  indicates  integer  quantity 

Name  Description 


C 

NN  * 

ZI 

ZR 

3.  Output 

ZNI 

ZNR 


convergence  criterion 

the  order  of  the  Bessel  function  to  be 
determined 

imaginary  component  of  the  argument  of  the 
Bessel  function 

real  component  of  the  argument  of  the 
Bessel  function 


imaginary  component  of  the  Bessel  function 
real  component  of  the  Bessel  function 


4.  Numerical  Procedure 

All  variable  names  having  Q  as  first  letter  are  designated  as 
complex  numbers  in  SUBROUTINE  JNXBES.  The  calculations  of  this 
subroutine  begin  with  the  definition  of  the  complex  number  Q  from  the 
input  real  and  imaginary  components,  ZR  and  ZI  respectively,  by  the 
use  of  function  DCMPLEX.  The  variable  Z  is  then  defined  as  the  absolute 


I :  ■ 
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value  of  Q  .  Both  the  real  and  imaginary  parts  of  QXXI  (Q  }  and 

X 

QXNU  (Q  )  are  set  equal  to  0.  0.  The  absolute  value  of  Q  ,  Z,  is 

xy  X 

tested;  if  Z  is  leas  than  19.  9999999999,  control  passes  to  statement  10; 
if  Z  is  greater  than  or  equal  to  the  specified  value,  then  control  passes 
to  statement  11. 


Statement  11  is  the  beginning  of  the  calculations  of  the  Bessel 
function  for  large  values  of  the  argument.  Preceding  the  statement 
D012  1  =  2,  4000,  2  are  initial  definitions  of  quantities  used  both  in 
the  DOloop  ending  with  statement  12,  and  in  the  D0  loop  beginning  with 
statement  13  and  ending  with  statement  15.  The  D0  loop  ending  with 
statement  12  evaluates  the  series 


QP  *  P  (Z) 
NN'  ' 


M 

Z  (-D 

k=0 


k  (NN,  2k) 

TZ^k 


=  1  - 


2.1  (8Z)2 


(4NNZ-  1)  (4NNZ-9)  (4NNZ-25)  (4NNZ-49) 

4 )  (8Z  )  4  . . 


and  the  D0  loop  beginning  with  statement  13  and  ending  with  statement 
15  evaluates  the  series 

ZM  (NN,  2k +1)  4NNZ  -  1 

(-1}  ,  2k  +  1  »  ---------- 

nn  k«0  (2Z)  8Z 

(4NNZ-1)  (4NNZ-9)  (4NNZ  -  25) 

“  1  1  !l  1  1  . . . rT  ™  ’  » » * 

3 !  (azr 


until  the  convergence  criterion  is  satisfied  or  M  is  2000. 


These  quantities  are  used  in  the  following  equation 


QANS  -  Jnn<2) 


MN  1  "w* 

PNN(Z)  cos  (Z  -  (  “■  +  —  )7T) 


TsJ  nj  I  | 

*  QNNiZ)  .in  <  Z  -  (  y  *  —  |7T  )• 


Th.  function  J^IZ)  1.  ..par.fd  into  if  r.,1  and  imaginary 

component*  by  employing  SUBROUTINE  DRLIM,  into  which  QANS  ie  fed 
and  the  2  value  array  TEMP  1*  produced.  TEMP(  1),  the  real»  and 
TEMPI  1),  the  imaginary  component  of  are  utilized  to  define 

respectively  ZNR  and  ZNI. 


Statement  10  mark*  the  beginning  of  the  calculation*  for  the 
Bessel  function  having  an  argument  Z.  whose  absolute  value  is  lee*  than 
19,9999999999.  The  following  quantities  to  be  used  in  the  determination 
of  the  Bessel  function  of  order  NN  are  then  defined 

A  •  nn; 

j . 2,"'  ^  z  ^ 

R  -  r  »a/(JX )  ♦  (  JTL  ) 


THET  ■  •  ■  arctan  (  -i  ) 

r 


2. 

NN 

~T 

f  ,„NN 

+  *,  1 

1 

'  (2  NN!  > 

+  Zj2» 

NN 

T  / 

'  MM 

(2  NN!  ) 

as  well  aa  the  aeries 
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where  the  number  of  terms  in  the  series  is  dependent  on  the  convergence 
criterion  C.  The  absolute  value  of  the  difference  between  the  last  two 
terms  of  the  series  must  be  less  than  C.  Using  the  previously  defined 
terms  and  series  to  define  the  real  and  imaginary  parts  of  the  Bessel 
function,  respectively 

ZNr  "  X2Nr  SUMR  ’  X2N,  SDW 

zn:  •  x  S{jm  +  x  S0MR 

These  components,  if  simplified,  would  yield  the  following  expression 
for  the  Bessel  function 


k 


m !  I  MUMtW  ii"  k  l>W  Ml >^^W»WHIIiH|IWIHIIIIWIIHH!jHWt  !■!«.*■  - 


. 


t 


5,  Other  Information 


A.  SUBROUTINE  JNXBES  is  called  in  by  SUBROUTINE  BESSEL, 

B.  SUBROUTINE  JNXBES  calls  in 

1.  SUBROUTINE  DRLIM 

2.  external  function  ATANQR 

3.  internal  functions 

a.  CDABS 

b.  DSIN 

c.  CDSIN 

d.  DC0S 

e.  CDC0S 

f.  DSQRT 

g.  CDSQRT 

h.  FDXPI 

i.  FCOXI 

j.  CCDVD 

k.  CDMPY 
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1*  Purpose 


SUBROUTINE  DRLIM  seta  the  real  and  imaginary  parts  of  a 
complex  number  C  and  *«U  them  equal  to  the  real  number*  of  the  two 
value  array  R. 


2,  Input 


Mina. 

c 


JNXBES 


complex  number  which  I*  to  be  used 


to  form  two  real  numbers 


3 »  Output 

Name 

RtlJ 

R(2) 


real  number  which  corresponds  to  the  real  part 

* 

of  the  complex  number,  C 

real  number  which  correeponds  to  the  imaginary 
part  of  the  complex  number,  C 


The  two  real  two-valued  arrays  R  and  A  are  used  in  conjunction  with 
the  two  complex  numbers  C2  and  C  is  SUBROUTINE  DRUM.  The  quantities 
C2  and  A  are  placed  In  equivalence  which  give*  A(l)  the  value  of  the  real 
part  of  C2  and  A (2)  the  value  of  the  imaginary  part  of  02.  Then  C2 


in  given  the  value  of  C,  which  because  of  the  equivalence  gives  valuea 
to  A(l)  and  A(2),  The  real  numbers  R{1)  and  R(2)  are  then  set  equal 
respectively  to  A(l)  and  A(2). 

5,  Other  Information 

A.  SUBROUTINE  DRLIM  (C,  R)  is  called  by  SUBROUTINE  JNXBES 
using  the  arguments  (QANS,  TEMP). 

B.  SUBROUTINE  DRLIM  calls  in  no  other  functions  or  subroutines. 


SUBROUTINE  NEUMAN  (C,  XR,  XI.  N.  XL.  ZZNR,  ZZNI, 
- XOR.  X01.  X1R.  - 


1.  Purpose 

SUBROUTINE  NEUMAN  calculates  for  complex  arguments  the 
Neumann  functions  of  integral  order  zero  through  twenty-four.  For 
arguments  of  magnitude  less  than  XL,  the  standard  power  series  is 
used  to  calculate  the  Neumann  functions  of  order  zero  and  one.  For 
arguments  whose  magnitude  is  greater  than  XL,  an  asymptotic  series 
solution  is  employed  to  obtain  the  Neumann  functions  of  order  zero  and 
one.  A  formula  is  then  used  to  generate  each  increasing  order  until 
the  Nth  order  is  determined, 

2.  Input 

rnmmmmmmmmm 

*  indicates  integer  quantity 


Name 

Symbol 

Description 

C 

convergence  criterion  for  power  series 

IT 

* 

integer  code  *  1 

N 

* 

maximum  order  of  Neumann  function 

XOI 

J 

°i 

imaginary  part  of  zeroth  order  Bessel  function 

XOR 

J 

0 

r 

real  part  of  zeroth  order  Bessel  function 

XII 

J1 

1 

imaginary  part  of  first  order  Bessel  function 

X1R 

J1 

real  part  of  first  order  Bessel  function 

XI 

r 

xi 

imaginary  argument  of  Neumann  function 

XL 

solution  value  option,  see  explanation  in  part  1. 

XR 

X 

r 

real  argument  of  Neumann  function 

3.  Output 


* 


Name 

Symbol 

Description 

ZZNI 

Y 

N. 

l 

imaginary  part  of  solution  vector 

ZZNR 

yn 

real  part  of  solution  vector 

r 


4.  Numerical  Procedure 

SUBROUTINE  NEUMAN  defines  the  quantity  D  as  the  absolute 
magnitude  of  the  argument. 


If  D  equals  zero,  control  passes  to  statement  10  where  the  real  and 
imaginary  parts  of  the  zeroth  and  first  order  Neumann  functions  are 
zeroed,  before  passing  to  statement  11.  If  0  is  non- zero  control 
passes  to  statement  8.  D  is  then  tested  against  XL.  If  0  1  XL, 
control  passes  to  the  power  series  calculations  following  statement  1. 
If  D  >  XL,  control  passes  to  statement  2,  which  marks  the  beginning 
of  the  asymptotic  series  solution. 


The  asymptotic  series  for  the  zeroth  order  Neumann  function  is 


P  <Z)  sin  (Z  - 
o 


+  Q  (Z)  cos  (Z- 
4  0 


where  r 

P  (Z)  -  1 
o 


kJLLkl)  +  HU-91  (-25)  H9)  + 

>  4  *  •  *  * 

21  (8Z)  4*  (8Z) 


Q  (Z)  ■ 
o 


_-l 

8Z 


(-1) (-9) (-25) 

a  T  *  » 

3i  (azr 
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Employing  the  definitions  Z  *  X  +  iX.  ,  PqIZ>  =  PN  +  iP^ 

r  r  i 

Q  (Z)  *  Qn  +  i  Qn  ,  to  expand  the  expression  for  Yq(Z) 
o  ”r  1  j 


Y  IZ> 
o 


ff 


(PN  UPN)  .in(Xr  -  'f  t  i  Xt) 
r  i 


+  {Qn  +  iQN  )  cos  (Xr  -  ^  +  i  X{)\ 
r  i  — l 

Using  DeMoivre's  theorem  and  expanding  the  sines  and  cosines 
n  “  -1/2  f—  r  -nr 


Yolzl  ~1W  z 


+  i  P  )  V  sin(X  -  “•)  cos  (IX  ) 
N,  1  r  4  l 

r  i 


+  sln(i  X4)  cos{Xr  -  "J  )  }  MQn  HQn) 

r  i 

^cos(Xr  -  -J- )  cos  UX4)  -  sin  (i  X4)  sin  (Xf  - 


rr“  co»(-r)*i  sin  (-ip} 
Y  (Z)  *  /  tsr  -j  5  1/2 

0  |  n  (x 2  +  x.)  ' 

t  i 


{p  +  i  P 
1  N  r 

r 


f  Xi  *Xi  3 

I  tintX^  -  X)  (— i *  *  —  )  *  co«  (X^  -  2. )  (-£■ 


+  ,QN  *  i0N, 
r  i 


,  IT  X‘  ^ 

*v  lco,,vf> 


•in  (X  -  )  ( 


e  •  » 

21 


•  »  '••■•■I 

-0 


The  expression  for  Yq(Z)  is  evaluated  in  the  computations  beginning 
with  statement  2. 


First  SUBROUTINES  MEUMPO  and  NEUMQO  are  called  to 
evaluate  the  real  and  imaginary  parts  of  P^(Z)  and  Qq(Z},  respectively. 

The  the  following  quantities  are  defined 
PI2RT 


■S 


XRP  =  X  -  ■?=  X  -  0.7853982 

r  4  r 

X,  -  X. 

XT  i  i  i 

C0SR  =  cos(R)  =  cos  (X  -  ~)  (  — — -  ) 

r  4  2. 0 

X.  -X. 
—.in 

C05I  *  cos(I)  =  -  sin  {Xr  -  ^  ? - =-~ - 


SINR  -  sin(R)  *  sin(X 


X.  -X. 

.  ZLi  1 

i  '  '  i  n 


r  4 


SINI  «  Bin(I)  =  cos  {X 


3L 


r  4 


)  < 


2.0 

Xi  -Xi 

e  -  e _ 

2.0 


0R  »  X  i  (X2  +  X2 ) 
r  r  l 


01  =  -  X.  /  (X2  +  X2  ) 
i  r  i 


If  the  imaginary  part  of  the  argument,  X^,  is  zero,  define 

X0R  =  Jx  /(X2  +  X2  ) 
r  r  r  I 

X0I  =  0,  0 
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and  control  passes  to  statement  7.  If  X^  is  non-zero,  define 


THTHO  =  8=  tan"1  (0I/0R) 

•1/2 


X0R 


(X2+  x2) 

r  1 


X0I  =  -  (X  2  +  X2  ) 
r  l 


-1/2 


cos  (8/ 2) 


sin  (6/2) 


These  quantities  are  used  to  define 


ZNINR  =  Qn  cos(R)  -  Qn  cos  (I)  +  PN  sin(R)  -  PN  sin(I) 
r  i  r  i 

ZNINI  =  Q  cos(R)  +  Q  cos(I)  +  PN  sin(R)  +  PN  sin  (I) 

Ni  1Ni  r 

which  are  employed  in  the  equations  for  the  real  and  imaginary  parts  of 


Y  (Z) 
o 


/F' 


ZZNR(  1,  IT)  =  Y  =  /  ■=?  (X0R  *  ZNINR  -  X0I  *  ZNINI) 
o 

r 

ZZNI(l.IT)  =  Yq  =  (X0I  *  ZNINR  +  X0R  *  ZNINI) 

To  determine  the  first  order  Neumann  function  from  the  Wrpnskian 
W  {  Jq(Z),  Yq(Z)J  *  Jj{Z)  Yq(Z)-J0(Z)  YjtZ)"^  which ^ives 

Yo(Z)J1(Z)  -  2/OTZ) 


Yj(Z)  * 


J  (Z) 

O 
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The  D<£  loop  which  includes  statement  4  computes  the  quantities 


ZZNR{I,IT)  -  Y 
ZZN1(I,IT)  *  y  x 

for  all  orders  from  2  to  the  maximum  N,  i.  e. ,  for  all  1  from  3  to  N  +  1, 
before  returning  to  the  calling  subroutine. 

Statement  1  obtains  control  when  the  absolute  magnitude  of  the 
argument  of  the  Neumann  function  is  less  than  or  equal  to  the  input  XL. 
Here  SUBROUTINE  NEUMNO  Is  called  to  determine  the  power  series 
representation  for  the  eeroth  order  Neumann,  function,  and.  SUBROUTINE 
NEUMN1  for  the  first  order  function.  Control  then  passes  to  statement 
3  where  the  higher  orders  are  computed  ueing  the  recurrence  formula, 

5,  Other  .Information 

A.  SUBROUTINE  NEUMAN  is  called  by  SUBROUTINE  R0TATE. 

B,  SUBROUTINE  NEUMAN  calls  in  the  following  subroutines: 

1,  SUBROUTINE  NEUMPO 

2,  SUBROUTINE  NEUMQO 

3,  SUBROUTINE  DIVMLT 

4,  SUBROUTINE  NEUMNO 

5,  SUBROU  TINE  NEU  MN 1 


C.  SUBROUTINE  NEUMAN  calls  in  the  following  functions: 

1,  ATANQR 

2,  .DEX..P 

ihernu 
•  D51N 


SUBROUTINE  NEUMPO  (XR,  XI,  C,  PNR,  PNI) 


1.  PurgOTi 

SUBROUTINE  NEUMPO  evaluate  a  the  real  and  imaginary  components 
of  the  quantify  P^Z)  which  it  used  in  the  asymptotic  solution  for  the 
Bette!  function  of  the  tccond  kind  of  reroth  order: 

. . .  I"* 

[_potzi*in,z-?M  Qolz)  =-lz-  t- j 

where 

pU).  1  .  +  (-11  (-9)  (-25)  |-49) 

°  2!  (SZ)2  4!  (8ZI4 

Q  |Z)  -  ji-  .  kUidlJhffl)  +  I-1X-9K.25M.49)  (-81)  _ 

°  ’Z  3!  ,.Z)J  5!  (8Z)5 

2.  Input 

Name 

irt 
XR 

3>  aas* 

JNjttwt 

PHI 
PHI 


Detcription 

imaginary  part  of  aerie  a  for  P  (Z> 

o 

real  part  of  aerie*  for  PJZJ 

0 


Detcription 

mmmmmmmmammmrn rnmmmmmm 

convergence  criterion  for  aerie* 

imaginary  component  of  argument  of  Beaeel  function 

real  component  of  argument  of  Beaeel  function 


4.  Numerical  Procedure 


The  series  for  Pq(Z)  may  be  represented  in  the  following  manner: 

P_(Z)*1.0  +  21  {'l}  S  (k-1) 

k=l  (2k) ( 2k- 1 ) (82  Z2) 

where  S(k-l)  represents  the  preceding  term  in  the  series,  i.  e. , 

so).  i.o, 

[2(l)][2(l).lJ(8ZZ) 

s(k-i) .  iflfcimljMrHrtLVn  s(k-2)Sk-3) . 

(2(k-l))(2(k-lMH8s*) 


Quantity  Pq(Z)  and  its  representative  series  are  divided  into  real 

and  imaginary  components,  PN  and  Pn  respectively,  to  avoid  the 

r  i 

use  of  complex  arithmetic  in  the  subroutine. 


P(Z)  =  PM  +iPM 
O  N  N. 

r  i 

pN  »  1.0  +  2-  X  (S  (k-l)R  -S(k-1)R  )«  21 

Nr  x  mult  r  r  i  i  fT0 


00 


■  Z  X  .AS  (k-l)R  +S(k-1)R  >  *  Z.  S(k) 
N|  k®l  mult  r  ii  r  ®  j  i 


where 


S(k-l)  *  S^(k-l)  +  i  S.(k-l) 


■  -  R  HR.,  X  ,  •  14t-3’2  <4k-‘>2 

,2  r  l  mult 


(2k)  { 2k- 1)  64 


II  „  MU*  -MM  uj<«M  urn 


The  calculations  of  SUBROUTINE  NEUMPO  begin  with  the  defining 

of  quantities  RR  (R,)  .„d  R1  (R.l.  and  the  Batting  of  initial  value  for 

SR  (S  ),  SI  (St,  PNR  {P  )  and  PNI  (P^,  ),  The  statement  DO  1 
r  i  N  N. 

r  i 

1  =  1,  32000  where  I  corresponds  to  the  k  of  the  previous  equation  i#  the 

beginning  of  the  evaluation  of  P^  and  P^  as  well  as  the  series  for 

r  i 

Sr  and  S^  The  integer  I  is  tested;  if  an  even  number,  then  integer# 

MM  *  1  and  M  B  2;  if  an  odd  number,  then  integers  MM  *  2  and  M  ■  l, 

Then  M  replaces  the  K  -  1  and  MM  the  k  counter  on  S  and  8,,  Pk, 
r  r  1  N  _ 

r 

is  set  equal  to  the  sum  of  the  V.st  P  and  S  <M);  P  Is  set  equal 

*°  ,h'  ”"m  01  -  “d  Th'  *b*0l"“  V‘1U'  °‘ 

between  the  last  two  terms  of  the  series  representing  S  is  tested,  against 

r 

the  convergence  criterion  C.  If  this  value  is  greater  than  C  control 

p„...  to  .ftumou.  6  und  .doth.,  term  i.  .dd.d  to  ft.  for  S(  «,d 

for  S  9  and  control  returns  to  the  D<#  statement  where  I  la  increased 

by  1  and  the  entire  procedure  repeated.  If  this  value  is  less  than  or 

equal  to  C,  control  passes  to  statement  5  where  a  similar  test  is  performed 

on  the  terms  of  S.,  If  the  absolute  value  of  'the  difference  between  the 
1 

last  terms  In  Is  less  than  or  equal  to  C,  control  passes  to  statement  7 
and  back  to  the  calling  subroutine.  If  this  value  la  greater  than  C,  control 
passes  to  statement  6  where  the  process  of  adding  terms  to  the  series 
continues. 

S.  Other  Information 

A.  SUBROUTINE  NEUMPO  functions  properly  for  pure  real  argument 
2;  but,  for  <  omplex  or  pure  imaginary  2,  an  error  in  the  definition  of  R 
causes  erroneous  results.  The  program  under  consideration  uses  this 
routine  for  real  arguments  only. 


I 


1.  Purpose 

SUBROUTINE  NEUMQO  evaluate  a  the  real  and  imaginary  component® 
of  the  quantity  Qo(Z)  which  la  used  in  the  asymptotic  solution  for  the  Bessel 
function  of  the  second  kind  of  seroth  order: 

Yo(Z,*/JT  +  Q0(2»  cos  (Z  «  JJ1 


where 


P  isM 

n  t8Z)2  4i  (8Z)4 


Q0t»  *  5^ 


3i  t*Z)' 


5i  (izr 


Description 

convergence  criterion  for  series 

imaginary  component  of  argument  of  Bessel  Function 

veal  component  of  argument  of  Bee  eel  Function 


3,  flaejt 
ISftBldL, 


Deacription 

imaginary  part  of  aerlea  for  Q  f  Z> 


raal  part  of  aerlea  for  Q  (Z) 

o 
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4,  Numerical  Procedure 


The  series  forQQ(Z)  may  be  represented  in  the  following 


manner: 


QoUI  “  "  fz  + 


ktl  (2k)  (2k+l)  {82  Z2) 


S  (k-1) 


where  S(k-l)  represents  the  preceding  term  in  the  series,  i.  e. , 


S{0)  -  ,  S(l)  » 


(2(1))  (2(1)  +  1)  (8Z  ) 


S(k-l) * 


(2(k>l»  (2(k-l)  +  1)  (8Z4) 


S  (k-2)  S(k-3) . . . . 


Quantity  Qq(Z)  and  its  repieeentative  aeries  are  divided  into  real  and 

Imaginary  components,  QN  and  QN  respectively,  to  avoid  the  use 

r  i 

of  complex  arithmetic  in  the  subroutine. 


Q0(«  ■  Qn  mqn 


l  X 


Q  «  .  — ^ 

r  8<X *  +X,  )  k*l 

r  i 


mult  «,(*-»  V^tk-MRi) 


21  S  (k) 

k*0  r 


i !:  I 

i  IjjlH, 
;! 


s  Mi;  I  I 
I  I:1!'  1 1 II IJ 


!  "C  '  '1  I'  M 


5;  m 
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The  calculation*  of  SUBROUTINE  MEUMQO  begin  with  the  defining 
of  quantities  RR  (Rf)  and  RI  (RJ,  and  the  setting  of  initial  value*  for 
SR(Sr),  SKS^,  QNR  (Qn  ),  and  QNI  (Q^  ),  The  statement  DO  1 

f  i 

1  *  1,  32000  where  I  corresponds  to  the  k  of  the  previous  equation  is  the 


beginning  of  the  evaluation  of  PN  and  PN 
and  S^.  The  Integer  1  is  tes&d;  if  an 


i 


as  well  as  the  series  for 
even  number,  'then  integers 


MM*  1  and  M  *  2j  if  an  odd  number,  then  integers  MM  *  2  and  M  *  1. 


Then  M  replaces  the  K-l  and  MM  the  k  counter  on  S  and  8..  CL,  is 

r  IN 

r 

set  equal  to  the  sum  of  the  last  Q„  and  S  (M);  Q_.  is  set  equal  to  the 

N  r  N 

r  I 

sum  of  the  last  Q  and  S  (M).  The  absolute  value  of  the  difference 
i  1 

between  the  last  two  terms  of  the  aerie*  representing  S  is  tested  against 

r 

the  convergence  criterion  C.  If  this  value  is  greater  than  (^control 

passes  to  statement  6  and  another  term  is  added  to  the  series  for  S,  and 

i 

for  S  then  control  returns  to  the  D0  statement  where  I  Is  increased  by 
1  and  the  entire  procedure  repeated.  If  this  value  is  less  than  or  equal 
to  C,  control  pas sue  to  statement  5  where  a  similar  test  Is  performed 

0*1  til®  I®  IT  fill'®  Of  Sj* 

i 

Mil 


If  the  absolute  value  of  the  difference  between  the  last  terms  in 
is  less  than  or  equal  to  C,  control  passes  to  statement  7  and  back  to 
the  calling  subroutine.  If  the  value  is  greater  than  C,  control  passes  to 
statement  6  where  the  process  of  adding  terms  to  the  series  continues, 

5,  Other  Information 

A.  SUBROUTINE  NEUMQO  functions  properly  for  pure  real 

arguments  Z;  but,  for  complex  or  pure  Imaginary  Z,  an  error  in  the 

definition  of  R  causes  erroneous  results.  The  program  under  considera- 
r 

Hon  uses  this  routine  for  real  arguments  only. 

B,  SUBROUTINE  NEUMQO  calls  in  no  other  subroutines  or 
internal  functions* 


SUBROUTINE  DIVMLT  is  used  to  perform  certain  divisions  and 
multiplications  involving  the  input  quantities  to  obtain  the  output  quantities. 

2,  Input 

. . . 

Name 
A 
B 
C 
D 

3,  Output 

Name 
E 
F 

4,  Numerical  Procedure 

The  quantity  R  is  defined  as  the  sum  of  the  squares  of  quantities 
C  and  D.  If  R  is  zero, control  passes  to  statement  2,  where  the  output 
quantities  E  and  F  are  defined  as  zero  before  the  return  to  the  calling 
subroutine.  If  R  is  non* zero, control  passes  to  statement  1  and  the  output 
quantities  E  and  F  are  defined  as 

E  *  A*(C/R)  -  B*{-D/R) 

F  =  A*(-D/R)  +  B*(C/R) 


Source  Description 

NEUMAN  input  quantity  used  as  a  multiplier 

NEUMAN  input  quantity  used  as  a  multiplier 

NEUMAN  input  quantity 

NEUMAN  input  quantity 
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SUBROUTINE  NEUMNO  iZR,  ZL  XR,  XI.  ZNR 


SUBROUTINE  NEUMNO  calculates  the  real  and  imaginary  component* 
of  the  zeroth  order.  Neumann  representation  of  the  Bessel  function  of 
the  second  kind  from  the  power  aeries 


mz).  jp  {ini}  zi  t  r|  jo(z)  +  ^  f 


'  i‘  ....2 


i  / 1 1  L  i  L  \  t  ? ,  /f ) 

on 


2.  Input 
Name 


1*1  11 
.  i  - 1 )  ( 1  +  -  +  ~  4 


(Z2/4)1  1 

(I!  )*  I 


*+T> 


Description 
convergence  criterion 

imaginary  part,  of  zeroth  order  Beimel  function  of 
the  first  kind,  J 

°i 

real  part  of  zeroth  order  Bessel  function  of  the 
first  kind,  J 

o 

r 

imaginary  part  of  argument  2  of  Bessel  function 
of  second  kind,  Z 

i 

real  part  of  argument  Z  of  Bessel  function  of  second 
kind,  z 


M35 


. . vmmwm 


■c 


U*in|  DeMoivre's  theorem  {cos  »  +  i  sin  ft)  *  coe  (n9)  +  i  sin  (n9)  and 
■  •panting  the  real  and  Imaginary  parts,  we  obtain 


Y  ■  — 

°r  7T 


{  (T 


+  In  H)  J  -  8  J 

o  o. 

r  l 


+  /_  (-1) 1+1  (i  +  j+  ...  +  I)  (co8  2  lw)  R 


21 


i»i 


in  > 


2 


} 


*f  { < * 


+  In  R)  J  -  8  I 

°,  o 

i  r 


+  Z  (-uI+1  (i +1  + ...+ J-)  isiaJllSI 


iI9>  RZI  ) 

o2  ; 


i-i 


u 


Th«i«  equations  for  Y  and  Y  are  evaluated  in  SUBROUTINE  NEUMNO. 

o 

r  l 


The  calculations  of  SUBROUTINE  NEUMNO  begins  with  the  definitions 
of  the  following  quantities 


r  ■  fz\  ♦  ** '  n. 


RLG  ■  In  R 


THET  *  8  «  tan  [ZjZ.) 


and  seta  the  values  of  ¥  and  Y  initially  to 

o  o  * 

r  | 


ZNR  »  Y  ■  2.  0  (  V  +  In  R)  J  -  2.  0  8  J 


i 


ZNl  ■  Y  *  2.  o  (  Jf  +  InR)  J  -  2.0  0  J 


1 


'i 


The  initial  values  of  FACT  and  T  are  act  to  1.  0  and  SR<  1 )  and  SI(1)  to 
I,  Q  x  1065, 
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The  statement  D0  1  1  *  1,  32000,  where  I  corresponds  to  the 

I  in  the  summations,  is  the  beginning  of  the  evaluation  of  Y  and  Y 

°r  °i 

The  integer  Iis  tested;  if  an  even  number,  then  integers  MM  *  1  and  M=2; 

if  an  odd  number,  integers  MM=2  and  M  =  1.  The  quantities  SR(M)  and 

SI(M)  respectively  represent  the  terms  of  the  series  in  the  definitions 

of  Yq  and  Yq  .  As  each  term  of  SR(M)  and  SI(M)  is  calculated  it 
r  i 

is  added  respectively  to  Y  and  Y  until  the  convergence  criterion 

r  i 

is  satisfied,  then  control  passes  to  statement  7.  To  satisfy  the  convergent 
criterion  the  absolute  difference  between  the  term  just  calculated  and  the 
last  series  term  must  be  less  than  C  for  both  SI  and  SR.  If  the  convergence 
tests  are  not  satisfied  I  is  increased  by  one  and  the  process  repeated. 

Starting  with  statement  7,  the  final  values  of  Y  and  Y  are 

o  o. 

r  i 

multiplied  by  the  factor  (2.  O/Jff  ),  then  control  passes  to  the  calling 
subroutine. 

5.  Other  Information 

A.  SUBROUTINE  NEUMNO  is  called  by  SUBROUTINE  NEUMAN. 

B.  SUBROUTINE  NEUMNO  calls  in  the  functions 

1.  ATANQR 

2.  OSIN 

3.  DC0S 

4.  DSQRT 

5.  DL0G 

6.  FDXPD 

7.  FDXPI 

I 
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SUBROUTINE  NEUMNl  (ZR,  ZI,  XR,  XI,  ZNR,  ZN1,  C) 


1.  Purpose 


SUBROUTINE  NEUMNl  evaluates  the  real  and  imaginary  components 
of  th'.  power  series  solution  from  the  first  order  Bessel  function  of  the 
second  kind  {Neumann  function) 


Yj(Z)=  ^  [>(1/2Z)+  f)  JjtZ)  +  ir 


l 


I  Z 


21-  1 


where  Aj  =  !•  0  if  1=1 


Aj  =  .2.0' 


z1  <±L  f 

ij=i  j  j  1 


Fi  IMI-D! 


if  I  >  1 


2.  Input 

Name 

C 

XI 

XR 

ZI 

ZR 


Symbol 


X.  ■  r  sin  d 


X  a  r  cos  0 
r 


Description 

convergence  criterion 

imaginary  component  of  first  order  Bessel 

function 

real  component  of  the  first  kind  Bessel 
function 

imaginary  part  of  the  argument  Z 
real  part  of  the  argument  Z 


1-339 


3, 


function 

real  part  of  first  order  Neumann  function 


4.  Numerical  Procedure 

The  real  and  the  imaginary  part*  of  the  power  series  solution 


for  YjiZ)  are 


Y  m 

1 

t 


2,  0 

TT 

( V  +  In 

I>  J 

2,  0 

1  -  o  J 

t 

.  JjJSt 

f 

(-U1 

21  -1 

Vf  » 

TT 

£m . . 

I*  i 

u 

«-l»! 

,  2»° 

*  IT 

{ T  4  In 

i>  Ji 

a  • 

**  """J""**  v  J  1 

i  TT 

t-u1 

21- i 

U) 

«o 

A1 ( 1  1  1 

TV 

i  *  l 

i 

!  <1  -  »>  ! 

2.  0  cos  0 


+  It . 2 . ate . £ 

vp  t r  r 


where  Y  ■  0.  S7721346 


AJ  -  l,  0  if  I  »  1 


{1-1 

2 

j-J 


4  +  7  H  !  >  1 
1  J  1 
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The  summation  of  Y  will  be  designated  21  S  (I)  and,  similarly, 

r  ^  I  »  1  r 

for  Y ,  the  summation  ia  21  S  U). 

1  1*1  1 


SUBROUTINE  NEUMN1,  which  ia  very  similar  to  SUBROUTINE 
NEUMNO,  begins  computations  by  defining  the  following  quantities 

R  *  r/2  ■  Jr  +  X2  n,  0 

T  r  i 

THET  ■  0  -  tan"1  (XjX  } 

i  r 

B  *  r2  •  X  2  +  X,2 
r  i 

X  =  X  /r2  •  cos  0/r 
FB  r 

X.  «  -  X  /r2  *  -  sin  6/r 
*B  1 

The  output  quantities  ZNR  and  ZNi  are  given  the  following  initial  value* 

ZNR  «  2.0  (  Y+  In  R)  J,  -  2. 0  JJ.  .  2.  0  . . . . 

lr  li 

ZNI  •  2, 0  (  Y  +  In  R)  J,  -  2.0  0  J,  +  •^••—5 . !, 

1  r 

The  additional  Initial  value*  assigned  are 

FACT  *  (I  -  l)  !  -1.0 

SERS-  Aj  -1.0  for  I  *  1 

SR(  1 )  -  I,  Os  1065 

SR(1)»  l.Ox  1065 


1-341 


HHHMHMHIlitMHjtW 


The  D®  loop  ending  with  statement  1  evaluates'  the  terms  SR(M)  *  S  (1) 

r 

and  SI(M)  *  S.(I),  where  M  *  1  if  I  is  an  even  number  and  M  ■  2  if  I 
is  odd,  With  each  pass  through  the  loop  ZNR  and  ZN1  are  increased 
respectively  by  5^(1)  and  S.{I),  the  convergence  of  the  series  tested,  and 
the  parameters  FACT  and  SERS  defined  for  the  next;  pass  through  the 
loop  before  I  ia  increased.  This  proceea  continue*  until  the  aeries 
converge  or  I  reachea  a  value  of  32000,  Each  aeries  is  considered  to 
be  converged  when  the  absolute  value  of  the  difference  between  the  current 
series  term  and  the  term  determined  on  the  last  pass  is  less  than  C. 

When  convergence  is  indicated,  the  current  values  for  ZNR  and  ZNI  are 
divided  by  7T  to  yield  the  input  ZNR  and  ZNL 

5,  Other  Information 

A.  SUBROUTINE  NEUMMl  ia  called  by  SUBROUTINE  NEUMAN. 

B.  SUBROUTINE  NEUMN1  calls  the  functions 

1,  ATANOR 

2,  DSIN 

3,  DC0S 

4,  DSQRT 
h  DL0G 

6.  JFDXPD 

7,  FDXPI 


SUBROUTINE  DRAGC0 


1.  Purpoae 

SUBROUTINE  DR  AGCO  is  employed  to  calculate  the  total  drag 
coefficient  of  the  blunt  or  sharp  cone  portion  of  the  vehicle,  when  the 
option  to  input  the  drag  coefficient  CDTAB  is  not  used.  In  the  rarefied 
flow  regimes,  the  total  drag  coefficient  is  calculated  as  a  single  entity. 

The  total  drag  coefficient  in  the  continuum  flow  regime  is  the  sum  of 
the  component  pressure,  skin  friction,  base,  and  induced  drag  coefficients. 
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2.  InpuL 

*  indicates  integer  quantity  and  N0CCUR  number  code 


Occur  /Noc  cur 

Source  of 

Name 

Symbol 

Number 

Input 

A,  514 

A . 

l 

301- 

814 

ZPRS 

coefficient 

ALPHA 

a 

002 

DEREQ, 

ROTATE, 

angle  of  at. 

VIXEN 

i 

A 

DEREQ, 

ALPRIM 

a' 

003 

ROTATE, 

VIXEN 

angle  of  att 

4 

) 

AREF 

aref 

001 

PRELIM 

reference  ai 

B,  21 

B. 

l 

823- 

843 

ZPRS 

i 

« 

coefficients! 
free  molecij 

CAPL 

L 

010 

PRELIM 

sharp  cone 

CODRAG 

7.6489*  !0"9Mw/(a-y JO 

009 

PRELIM 

factor  used! 

i 

C0SLAM 

A  cos  9 

Oil 

PRELIM 

product  of  lj 

CPE 

CP 

017 

PRELIM 

constant  pn 

e 

layer 

CPW 

Cpw 

018 

PRELIM 

constant  prj 

D 

D 

021 

PRELIM 

base  diamei 

i 

FACTR9 

ff 

197 

F123 

t 

numerical  £ 
drag  on  splj 

GAMF 

^  F 

026 

DEREQ 

flight  path  e 

GAMMA 

r 

028 

SR2490  or 
READIT 

J 

ratio  of  spd 

rip  a  TIT 

VJfJCVdf*  JL  Jtw# 

095 

VIXEN 

factor  used] 

of  attack  efj 

HSR  TO  h  /RT  029  PRELIM  non-dimens 

a  o 


u 

“w 


HWBAR 


225 


EVIL  or 
PRELIM 


non-dimen 


*  ii  . . . . Mii—iii^mii^i.uiiiiinuLiiuatiimm 

l-— — — 

tree  of 

lput 

Description 

Units 

PRS 

coefficients  for  curve  fits,  see  ZPRS  for  more  detail 

SREQ, 

angle  of  attack  for  use  in  C  /  C  relation 

3TATE, 

radians 

XEN 

CREQ, 

l 

V 

p 

1 

p 

ii 

o 

3TATE, 

angle  of  attack  for  use  in  maximum -minimum  testing 

radians 

XEN 

IELIM 

reference  area 

ft2 

3RS 

coefficients  for  probability  distribution  between 
free  molecule  and  continuum  flow  regimes 

- 

IELIM 

sharp  cone  slant  length 

ft. 

IELIM 

factor  used  in  finding  mean  free  path  X 

W 

ft. 

IELIM 

product  of  bluntness  ratio  and  cosine  of  cone  half  angle 

• 

IELIM 

constant  pressure  specific  heat  at  edge  of  boundary 

Btu 

layer 

lbm°R 

IELIM 

constant  pressure  specific  heat  at  wall 

BTU 

t 

lbm°R 

»ELIM 

base  diameter 

ft. 

23 

numerical  factor  used  in  finding  free  molecule 
drag  on  spherical  nose 

Ml 

IREQ 

flight  path  angle 

radians 

12490  or 

IADIT 

ratio  of  specific  heats 

- 

XEN 

factor  used  in  correction  CD  for  averaged  angle 
of  attack  effect,  see  VIXEN  P 

- 

IELIM 

non-dimensional  stagnation  enthalpy 

- 

rih  or 
tELIM 

non-dimensional  wall  enthalpy 

- 

» 
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If  Input  (Cont'd) 


i 


Occur/Noccur 

Source  of 

Ml 

Da 

Name 

Symbol 

Number 

Input 

LA 

La 

033 

PRELIM 

axial  length 

LAMDA 

032 

PRELIM 

bluntnesa  rg 

L0PT 

- 

07  * 

SR 2490  or 
READIT 

trajectory  o 

MD0T,  32 

“i 

2708  - 
2739 

EVIL 

mass  loss  in 

ME 

M 

e 

036 

PRELIM 

Mach  numbe 

MHEAT 

- 

10  * 

SR2490  or 
READIT 

mass  loss  oj 

MINF 

M  __ 

M 

035 

PRELIM 

Mach  numbe 

M0PT 

- 

03  * 

READIT 

mass  loss  o] 

PE 

P 

e 

048 

PRELIM 

pressure  at 

PI 

7T 

042 

SR2490 

mathematic  a 

PINF 

049 

PRELIM 

free  stream; 

REYL 

Rey<.L 

062 

PRELIM 

1 

free  stream  \ 
cone  slant  lej 

rh<Se 

jP  e 

061 

PRELIM 

density  at  edj 

1 

RH0IN1 

056 

PRELIM 

1 

free  stream  • 

RH0INF 

f- 

055 

PRELIM 

free  stream 

SINT 

ain  8 

064 

CHNTBL 

sine  of  cone  j 

SINTM 

M  sin  8 

M 

067 

PRELIM 

product  of  fr 
cone  half  ana 

,of 


Description 


Units 


in '•we 


u 

M 
'  or 

r 

» 

r 

\A 

or 

r 

► 

n 

r 

A 

A 

A 

'A 

1 

1 

1 


axial  length  of  vehicle 

bluntness  ratio 

trajectory-  option  code 

mass  loss  rate  distribution  along  body 

Mach  number  at  edge  of  boundary  layer 

mass  loss  option  code 

Mach  number  in  free  stream 

mass  loss  option  code 

pressure  at  edge  of  boundary  layer 

mathematical  constant 

free  stream  pressure 

free  stream  Reynolds  number  based  on  sharp 
cone  slant  length 

density  at  edge  of  boundary  layer 

3 

free  stream  density  in  lbm/ft 

3 

free  stream  density  in  slug/ft 
sine  of  cone  half  angle 

product  of  free  stream  Mach  number  and  sine  of 
cone  half  angle 


ft. 


lbm 

2 

ft  -sec 


lb/ft2 

lb/ft2 

lbm/ft"* 

lbm/ft"* 

3 

slug /ft 


MDMMM 


J 


IfilUlMlWIN 


mbmmMMIi 


M . . 


1 


J 

2*  InPut  (cont'd)  1 

\ 

I 

.  Source  of  '"  I 

Name  Symbol  Number  Input  ! 


< 


T 

t 

075 

VIXEN 

time  foij 

TANT 

tan  8 

070 

CHNTBL 

tangent j 

TCRIT 

Wit 

077 

RE  ADIT 

limit  on* 

YE 

T 

e 

079 

PRELIM 

tempera 

TEC  ON 

t 

econ 

078 

READIT  Ox’ 
SR2490 

limit  on 

THE TAD 

°D 

069 

PRELIM 

cone  hal 

TIMER 

t  (time) 

080 

DEREQ 

instantai 

TINF 

T 

oo 

072 

PRELIM 

free  str< 

TW,  32 

T 

W. 

i 

2644- 

2675 

MASSL0 

wall  ten: 

TWO 

T 

wo 

074 

CHNTBL 

READIT  or 

initial  w 

TWST 

T 

W 

148 

SR2490 

effective 

ST 

mole  culi 

V 

V 

082 

c 

DEREQ 

velocity 

VE 

V 

e 

083 

PRELIM 

velocity 

WD0T 

W 

086 

T0MAL0 

rate  of  c 

X1L0W 

X'u» 

240 

READIT  or 
SR2490 

value  of 
of  f  airinj 
interact: 

XI  UP 

*>UP 

239 

READIT  or 

SR  2490 

value  of 
of  fairinj 
interact] 

XBAR 

X 

090 

PRELIM 

interact: 

I 


r 


Source  of 
Input 


Description 


Units 


VIXEN 

time  for  one  complete  cycle  in  angle  of  attack 

sec. 

CHNTBL 

tangent  of  cone  half  angle 

- 

RE ADIT 

limit  on  cycle  time,  t  , 

cycle 

sec. 

PRELIM 

temperature  at  edge  of  sharp  cone  boundary  layer 

°R 

READIT  or 

SP  7.490 

limit  on  cycle  time,  tCyCje 

sec. 

PRELIM 

cone  half  angle  in  degrees 

degrees 

DEREQ 

instantaneous  time 

sec. 

PRELIM 

free  stream  temperature 

°R 

MASSLO 

wall  temperature  distribution  along  body 

°R 

CHNTBL 

initial  wall  temperature 

°R 

READIT  or 
SR2490 

effective  wall  temperature  for  use  in  free 
molecule  drag  calculation 

o 

R 

DEREQ 

velocity 

ft/sec 

PRELIM 

velocity  at  edge  of  boundary  layer 

ft/  sec 

T0MAL0 

rate  of  change  in  weight  due  to  ablation 

lb/sec 

READIT  or 
SR2490 

value  of  rarefaction  parameter  which  is  lower  boundary 
of  fairing  region  between  free  molecule  and  strong 
interaction  flow  regimes 

- 

READIT  or 

SR  2490 

value  of  rarefaction  parameter  which  is  upper  boundary 
of  fairing  region  between  free  molecule  and  strong 
interaction  flow  regimes 

PRELIM 

interaction  parameter 

. 

2,  Input  (Concl'd) 


Occur/Noccur 

Source  of 

| 

Name 

Symbol 

Number 

Input 

XBARI 

V 

126 

PRELIM 

t*  SI  t>  T  2*  t*  4*4 

I  0o JL  (J*C*L  UIUm^PI 

XBARST 

-?ST 

089 

PRELIM 

factor  use<9 

XL0W 

X  LOW 

238 

READIT  or 

SR 2490 

value  of  infl 
boundary  a|| 
and  contimfl 

XUP 

XuP 

237 

READIT  or 
SR2490 

value  of  inM 
boundary  ofl 
and  contimB 

Z 

z 

091 

DEREQ 

altitude  ■ 

ZETA 

<? 

093 

READIT  or 

SR 2490 

accomodatiB 

ZTR 

ZTR 

092 

PRELIM 

transition  M 

.1,  i  !  I: 

ri ,  .  H , 

;i  "  t.  r 

1  ‘‘i  . 

1  i;  |,i  1 1 

W  n 

. .  .  . ,..  , 

H«.J[I|n:!p,.-i  ,  ,  - ,  -1**  *■*# 


re  of 
ut 

Description 

Units 

1 

jIM 

rarefaction  parameter 

JM 

>IT  or 

factor  used  in  determining  XBAR1 

- 

>0 

>1T  or 

>0 

► 

value  of  interaction  parameter  which  is  lower 
boundary  of  fairing  region  between  strong  interaction 
and  continuum  flow  regimes 

value  of  interaction  parameter  which  is  upper 
boundary  of  fairing  region  between  strong  interaction 
and  continuum  flow  regimes 

:q 

altitude 

ft. 

°  H 

o 

n 

accomodation  coefficient 

■ 

jIM 

transition  altitude 

ft. 

2*  lnPut  (cont'd) 


N 

Occur /Noccur" Source  of 

Name  Symbol  Number  Input 


T 

t 

075 

VTYITM 

V  XjVu  itN 

tlmH 

TANT 

tan  8 

070 

CHNTBL 

tangen 

TTOTT 

X  X 

4crit 

077 

RE  ADIT 

limit  a 

TE 

T 

e 

079 

PRELIM 

temper 

TEC  ON 

t 

econ 

078 

Kii-AUll  or 
SR2490 

limit  c( 

THE TAD 

C> 

D 

069 

PRELIM 

J 

cone 

j 

TIMER 

t  (time) 

080 

DEREQ 

instanl 

TINE 

T 

OO 

072 

PRELIM 

free  b1 

TW,  32 

T 

W. 

l 

2644** 

2675 

MASSL0 

' 

wall  te 

TWO 

T 

W 

074 

CHNTBL 

initial 

wo 

READIT  or 

TWST 

148 

SR2490 

effect! 

ST 

molec, 

V 

V 

082 

DEREQ 

velocil 

VE 

V 

e 

083 

PRELIM 

velocil 

WD0T 

W 

086 

T0MAL0 

j 

rate  oJ 

XI L0W 

Xl 

LOW 

240 

READIT  or 
SR2490 

value  < 
of  fair) 
inter  at 

X1UP 

^UP 

239 

READIT  or 
SR2490 

value  | 
of  fair i 

inter  aj 

XBAR 

X 

090 

PRELIM 

inter  at 

tflipi!|*ll|PI|l1l'l 


Source  of 
Input 


VIXEN 

CHNTBL 

RE  ADIT 

PRELIM 

READIT  or 
SR2490 

PRELIM 

DEREQ 

PRELIM 

MASSLO 


Description 


time  for  one  complete  cycle  in  angle  of  attack 

tangent  of  cone  half  angle 
limit  on  cycle  time,  t 

cycle 

temperature  at  edge  of  sharp  cone  boundary  layer 
limit  on  cycle  time,  tCyCje 

cone  half  angle  in  degrees 

instantaneous  time 

free  stream  temperature 

wall  temperature  distribution  along  body 


degrees 


CHNTBL 

READIT  or 
SR2490 


initial  wall  temperature 

effective  wall  temperature  for  use  in  free 
molecule  drag  calculation 


DEREQ 

PRELIM 

T0MAL0 

READIT  or 
SR2490 


READIT  or 
SR 2490 


PRELIM 


velocity 

velocity  at  edge  of  boundary  layer 

rate  of  change  in  weight  due  to  ablation 

value  of  rarefaction  parameter  which  is  lower  boundary 
of  fairing  region  between  free  molecule  and  strong 
interaction  flow  regimes 

value  of  rarefaction  parameter  which  is  upper  boundary 
of  fairing  region  between  free  molecule  and  strong 
interaction  flow  regimes 

interaction  parameter 


ft/ sec 
ft/ sec 


lb/ sec 


iiiiiilWIilWiww11* 


1-347 


Name 


Symbol 


Occur/Noccur 

Number 


Source  of 
Input 


Descr 


XBAR1 

Xi 

126 

PRELIM 

XBARST 

? 

/  'T 

089 

PRELIM 

XLQ5W 

-*LOW 

238 

READIT  or 
SR2490 

XUP 

^UP 

237 

READIT  or 
SR2490 

Z 

z 

091 

DEREQ 

ZETA 

* 

093 

READIT  or 
SR2490 

ZTR 

ZTR 

092 

PRELIM 

rarefaction  pari 
factor  used  In  di 

i 

value  of  interac 
boundary  of  fair 

tivtil  nmiTYi  f 

(X 1 1 u  ^uiiyuiumii  ju 

value  of  interacl 
boundary  of  fair 
1  and  continuum  f 

altitude 

accomodation  cc 
transition  altituc 


irce  of 
Input 


Description 


Units 


,ELIM 

> 

ELIM 

i ADIT  or 
^490 

ADIT  or 
2490 

REQ 

:ADIT  or 
2490 


rarefaction  parameter 

factor  used  in  determining  XBAR1 

value  of  interaction  parameter  which  is  lower 
boundary  of  fairing  region  between  strong  interaction 
and  continuum  flow  regimes 

value  of  interaction  parameter  which  is  upper 
boundary  of  fairing  region  between  strong  interaction 
and  continuum  flow  regimes 

altitude  ft. 

accomodation  coefficient 


ELIM 


transition  altitude 


ft. 


3,  Output 


Occur 

\ 

T% 

Name 

Symbol 

Number 

CD 

CD 

016 

total  drag  co 

CDB 

CD 

099 

base  drag  cot 

B 

i 

CDFINF,  8 

2793- 

2800 

skin  friction1 

GDI 

C°x 

100 

total  induced 

1 

CDP 

CD 

098 

pressure  dra| 

P 

averaged  a 

CDPO 

c\ 

101 

pressure  draj 

DECDFP 

(Ac:  ) 

235 

pressure  indi 

f  p 

DECFTC 

(AC  ) 

236 

transverse  ci 

fTC 

coefficient 

DELCDP 

Acd 

234 

induced  press 

• 

UP 

TZTEST 

t  +  t 

ZTR  f 

246 

■ 

sum  of  last  ti 
in  fairing  reg 

iHt'WM'JlP  |lHlli 
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Description 


Units 


total  drag  coefficient 
base  drag  coefficient 

skin  friction  drag  coefficient 
total  induced  drag  coefficient 

pressure  drag  coefficient  corrected  for  a  non- 
averaged  a 

pressure  drag  coefficient  for  a  =  0 

pressure  induced  skin  friction  drag  coefficient 

transverse  curvature  induced  skin  friction  drag 
coefficient 

induced  pressure  drag  coefficient 


sum  of  last  time  in  fully  laminar  flow  and  total  time 
in  fairing  region  between  laminar  and  turbulent  flow 


sec. 


4.  Numerical  Procedure 


The  computafcionsof  SUBROUTINE  DRAGCO  may  be  grouped  in 
the  following  manner  to  facilitate  description  of  the  numerical  calculations 


A. 


B. 


Miscellaneous  Definitions 

Calculation  of  C_ 

Dp 

u 

1)  evaluation  of  equation  for 

2)  evaluation  of  equation  for 


a  a 


3) 


product  of  1)  and  2)  is 


P 


a 


0 


ratio 


C.  Rarefied  Flow  Drag  Coefficient  Calculations 

1)  strong  interaction  drag  coefficient 

2)  free  molecule  drag  coefficient 

3)  fairing  between  free  molecule  and  strong  interaction 
flow  regimes  and  definition  of  total  drag  coefficient. 


D.  Continuum  Flow  Drag  Coefficient  Calculations 

1)  Base  Drag  Coefficient 

2)  Turbulent  Calculations 

a)  evaluation  of  turbulent  induced  and  skin 
friction  drag  coefficients. 

b>  determination  of  averaged  a  effect 

c)  computation  for  fairing  between  laminar  and 
turbulent  flow  regions 
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* 


f:  , 


d)  definition  of  total  drag  coefficient 
3)  Laminar  calculations 

a)  evaluation  of  laminar  induced  and  skin  friction 
drag  coefficients 

b)  determination  of  averaged  a  effect 

c)  definition  of  total  drag  coefficient  in  fully 
laminar  flow 

d)  definition  of  total  drag  coefficient  in  fairing 
region  between  strong  interaction  and  laminar 
flow  regimes. 


The  flow  regimes  are  defined  by  the  values  of  the  interaction 
parameter  X  and  the  rarefaction  parameter  X  ^  in  the  following  way: 


Typical  Curve  with  Flow  Regions 


X  j  >  X 


UP 


UP 


X  i  ^ 


LOW 


transitional  free  molecule  flow 

fairing  between  free  molecule  and  strong 
interaction  flow 
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strong  interaction  flow  regime 


X  ,  >  X.  .  and  A  >  X 

LOW  J 


X up  >  X 


LOW 


X  >  X  and  Z  >  Z_ 

LOW  -  TR 


fairing  region  between  strong  interaction 
flow  and  continuum  laminar  flow  region 

fully  laminar  flow 


-*LOW  >X-‘  Z<  ZTR’  and  time  *  'Z-ZTR  *  V 

fairing  between  laminar  and  turbulent 
regions. 


*LOW  >JC’  Z  <  ZTR‘  andUme  i  *Z~ZTR  +  *F 


fully  turbulent  flow 


It  is  conceivable  that  the  above  definitions  may  not  be  sufficient  to  define 
the  flow  regime  unambiguously  in  certain  unusual  cases;  i.  e. ,  jfj  >  X 

but  X  >  X  .  Therefore,  the  following  priorities  are  observed: 


XLOW 


1)  If  >  JCj  but  X  yp  >  X  ,  the  fairing  between  free 

molecule  and  strong  interaction  regimes  overrides  and  the  value  of  X 

r-  UP 

is  reset  so  that  the  xup  ~  X „  ^  and  fairing  into  continuum  flow 

—  V  *£ , 

begins  just  after  X ^  reaches  X ^ 


lLOW 


2)  If  X  >  ^*LqW  b“t  Z  <  ZT£>  the  fairing  between 
laminar  flow  and  strong  interaction  region  overrides  then  when  X  reaches 
^LOW  ’  fairing  of  laminar  into  turbulent  flow  begins. 


3 )  If  X.  <  X  for  any  value  of  X  , 

LOW  7  1* 


appropriate 


continuum  calculations  are  performed  depending  on  the  value  of  Z 

tested  against  Z  . 

I K 


The  following  description  of  SUBROUTINE  DRAGC0  is  presented 
in  accordance  with  the  outline  of  the  introductory  comments. 

A.  Miscellaneous  Definitions 

The  following  quantities  to  be  used  in  drag  calculations  are 

defined: 

PEPINF  =  P  /P 

e  oQ 

SQRT3  =  1.  732050807568877 
TEMLAM  =  1.  0  -  (A  cos  6  )  (A  cos  8) 

F 

1,*  Q,  9  +  M  sin  8  {-0.  119  +  0.0108  M  sin  8) 

K  oo  o© 

=  180.  o  oL  /  7T 
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B.  Calculation  of  Cn 
. ""  lu  1 . 

a 

The  pressure  drag  coefficient  at  zero  angle  of  attack  is  then 
determined  from  the  curve  fit  expression  as  follows: 

if  eD  >  20.0°  N  =  312 


if  20.°  >  6d  >  10.°  N  =  247 

if  9^  <10°  N  =  211 

D  “ 


2  2  3 

SSL 
11=0  JJ=0  KK=0 


AN+  II  +  3JJ  +  9KK 


ivi 


OQ 


II 

) 


(A  ) 


jj 


i 


KK 

) 


A  sharp  cone  pressure  drag  coefficient  is  then  determined  for  the  given 
cone  half  angle  from 


2,  0  P 

e 

fa? 


The  value  of  angle  of  attack  is  then  tested;  if  the  absolute  value 
of  >  4.  0°,  control  passes  to  statement  220.  If  the  absolute  value  of 
<4.0°  the  following  equation  is  evaluated  to  obtain  the  angle  of  attack 
correction  ratio  C  /  C  .  The  ratio  C  /  C 

U_  /  Up  L>p  /  p 

a  a  *  0  u  a  “  0 

is  set  equal  to  1.  0,  then,  if  uD  is  zero,  control  passes  to  statement  230. 
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If  4.  0  >  I  a  ^  !  >0.0,  the  following  equation  is  evaluated  to  obtain 
the  ratio  C  /  C  : 

- - .  i  w 


:D„  /CD. 


3  2  2 

S  2  E 

11=0  JJ=0  KK=0 


421  +  II  +  4  JJ  +  12KK 


%)“  (|aD|)JJ  (A  )KK 


If  the  equation  yields  a  value  less  than  1.0,  C  /  C  is  set 

U  jp  f  u  p 

a  a  =  0 

equal  to  1.0.  Then  control  passes  to  statement  230. 

Statement  220  is  the  beginning  of  the  computation  for  C  /  C 

i-'n  /  J* 
a 

when  I  a£j  I  >  4.  0  •  The  quantity  TEML  is  set  equal  to  the  absolute 
value  of  a^;  however,  if  TEML  is  greater  than  40.  0,  it  is  set  equal  to 
40.  0  ,  The  following  parameters  are  then  defined: 


X  =  log,n  9_ 
s10  D 

Y  =  log1()  (TEML) 

zz  =  A 


and  used  to  evaluate  the  following  curve  fit  equation 


FUN  *  logjQ  lCDp  /CDp 


3  2  2 

)  *  E  2  E 

tt  ■  0  11*0  IJ*0  KK=0 


A  II  JJ  KK 

346  +  II  +  4JJ  +  12KK 
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If  FUN  is  less  than  0.  0,  it  is  set  equal  to  0,  0.  From  the  above, 
we  obtain  the  ratio 


:°P  /  % 

Q  Q=  0 


=  (10.) 


FUN 


Following  statement  230,  the  pressure  drag  coefficient  at  zero 
angle  of  attack  is  multiplied  by  the  angle  of  attacK  correction  ratio 


/V 


to  obtain  the  pressure  drag  coefficient  with  non-averaged 


a  Q=0 

angle  of  attack  effects. 


If  the  interaction  parameter,  X.  ,  has  a  value  lees  than  X , 


G'w 


control  passes  to  statement  1,  the  beginning  of  the  continuum  calculations. 
Otherwise,  the  rarefied  flow  calculations  are  performed. 


C.  Rarefied  Flow  Calculations 


The  following  definitions  are  made  preparatory  to  computing  the 
sharp  cone  strong  interaction  drag  coefficient: 

V  (1.0  +  0.5(iyi-0)  M^) 

TEM  =  T,  /  T 
WST  ° 

TEM3  =  log  (  XCJ 
e  ST 

o 

If  0D<  15.0  ,  control  passes  to  statement  204;  if  not,  the  following 
equations  are  used  to  evaluate  the  sharp  cone  strong  iteration  drag  coefficient: 


1-356 


ItMtfMM 


. .  i  MiimnittiMii  hi  mih|i||itM'iiirriMniiii » m  n* . mr*  m  m  mn . up . . 


* 


1  3  1 

SUM  =  S  S  2 

11=0  JJ=0  KK=0 


384+11+  ZJJ+8KK 


(TEM3)11  («D)JJ  (TEM)KK 


CDST =  C 


SUM 


D 


ST 


Control  then  passes  to  statement  3.  In  a  similar  fashion,  C  is 

dst 

determined  for  values  of  8^  i  15.  0  beginning  with  statement,  204. 

Ill  II  J  T  KK 

SUM  =  2  2  2  A  (TEWrie.r  (TEM)^ 

11=0  JJ=0  KK=0  200  +  11  +  2JJ  +  4KK  D 


CDST  =  C 


SUM 


D 


ST 


Statement  3  is  the  beginning  of  the  drag  calculations  for  the  transitional- 
free  molecule  flow  regime,  where  the  mean  free  path  of  the  molecules  is 
of  the  same  order  as  a  typical  body  dimension.  The  sharp  cone  transitional- 
free  molecule  drag  coefficient  is  obtained  from  a  probabilistic  model  which 
takes  into  account  the  continuous  variation  in  aerodynamic  properties 
between  continuum  and  free  molecule  flow  regimes.  The  free  molecule 
drag  coefficient,  a  continuum  drag  coefficient  based  on  Newtonian  results, 
and  the  probability  function  indicated  below  are  combined  to  yield  the  sharp 
cone  transitional-free  molecule  drag  coefficient. 


. . him . . 


i-mianmi 


CDN  =  C  =2.0  sin  0 
°N 


LAMWD 


_W  _  C0DRAG 

M  D 

oo 


2.  25  7T  ST 

T  Too 


Aw  21  Aw1’1 

-£->0.04  CAPP  =  P  =  s  Bj(loge  { -J— )) 

X  w  <  0.04  CAPP  =  P  =  0.  506  -  0.  147  log 

n  AW'D 


CDTRFM  =  CT 


i  *  P(CD  -  CD  1  +  CD 

Trans.  -FM  ,  FM  N  N 

sharp 


Henceforth,  the  transitional  free  molecule  flow  regime  will  be  referred  to 
merely  as  t’  e  free  molecule  regime  for  the  sake  of  brevity. 

The  bluntness  ratio  is  tested  and  a  value  less  than  10  '  passes 

control  to  statement  30,  where  the  total  free  molecule  drag,  CDFM,  is 

Bet  equal  to  the  sharp  cone  value,  before  continuing  to  statement  32. 

3 

If  A  >  10  ,  the  contribution  of  1  spherical  nose  in  free  molecule 

flow  is  calculated  and  included  in  tin  calculation  for  total  in  free 
molecule  flow: 


TEM  =  log 


Rey  D 

°°  L 

L  M  FAC  I 


i 

c  :R9 


if  |  TEM  |  <  10  then  TEM  is  set  equal  to  10 

if  TEM  >  5.  298  then  TEM  is  set  equal  to  5.  298 
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CDFMS  =  C. 


“  2'°  Z!  A173  +  J  TE“J 


sphere 


CDFM  =  C  =  C 

F  M  FM  . 

total  sphere 


v  2  2 

X  cos  9 


(1.0  -  X  ) 


Trans-FM 


sharp 


Control  these  passes  to  statement  32  where  the  sharp  cone  strong  interaction 
CD  is  corrected  for  bluntness  and  angle  of  attack  effects. 


^CD  "  CD 
ST  P 


2$ 

)  (1.  0  -  X )  cos  a'  +  Cr 


X  =  0 


This  is  followed  by  the  defining  of  the  total  drag  coefficient  according  to 
the  regime  indicated  from  the  testing  of  X  and  X 


If  X,  >  X.  C  =  C 

1  ‘up  d  dfm 


u  X.  <x 


I  ^  *  and  -X  >  if  C 

1  lT  UP  D 


LOW 


U  **  *1up  ^  <  *  ^ow*  and  ^  i  ^up  contro1 

passes  to  the  continuum  flow  calculations  following  statement  1. 


UP* 


1 


l 


the  following  procedure  is 


LOW 


used  to  fair  between  the  free  molecule  and  strong  interaction  values. 


Xi '  *1 


( 


LOW 


Xi  *  Xi 


FM 


total 


X7777 


♦  c„  (1.0  - 


LOW 


UP 


LOW 


Xlur'*lvc 


Then.  If  >X^p.  control  returns  to  the  calling  subroutine.  If  not. 


and  X\  rwu  are  redefined  and  respectively  set  equal  to  X  and 


LOW 


>?  -  2.  0  with  the  restriction  that  *^L0W  cannot  be  smaller  than  0.5  . 


This  means  that  Jfup  *nA  X  LQW  are  reset 


until  X^  < 


and 


LOW 


that  they  retain  the  values  given  at  the  altitude  just  before  X^  becomes  less 


than  X  . 

LOW 


D.  Continuum  Flow  Calculations 

The  continuum  flow  calculations  begin  with  statement  1  and  the 
evaluation  of  the  base  drag  coefficient  which  is  a  function  of  the  Mach 
number  and  the  non-dimensionalised  rate  of  change  in  weight  due  to 
ablation. 

»  ■  1*1/  </Ui  v 

unless  Y  <  0.  0,  then  Y  ■  0.  0  or  if  Y  >  0.  06,  Y  ■  0.  06 
X  ■  1.  0  / 


unless  M  >  24.0,  then  X*  1.0/24.0 


if  M  <  7.0,  N  -  487 

wfQ 

if  M  >  7,0,  N  *  499 

<Wp  ■* 

The  base  pressure  ratio  P^/P^  is  then  f°und  fro™ 


3 

PBPINF  »  P./P  =  £ 

o  ««  n=0 


2 

Z 

JJ=0 


AN  +  II+  4  JJ 


II 

p*i» 


Y 


JJ 


which  I#  used  in  determining  base  pressure  drag  coefficient,  C_  , 

B 


COB  “  C  *(1.0-P/P 

o 


)  /  {0.7  M2) 

flO 


The  interaction  parameter,  X  ,  is  tested  against  X  L0W  to 
determine  if  full  continuum  flow  conditions  have  been  reached  or  if  the 
appropriate  flow  regime  1#  that  determined  by  the  fairing  between 
continuum  and  strong  interaction  regions.  If  X  >  X  indicating 

the  fairing  region,  control  passes  to  statement  10  and  the  laminar  flow 
calculations.  If  %  <  X  LQW  full  continuum  flow,  Z  is  tested 
against  ZTR.  If  Z  >  ZTR,  control  passes  to  statement  10  and 
laminar  flow  calculations;  if  Z  <  ZTR,  subroutine  proceeds  with 
the  evaluation  of  the  turbulent  equations. 


In  the  continuum  calculations,  the  skin  friction  drag  coefficient 
is  represented  by  the  following  array: 


CDFINFd,  J,  K)  where 
1*1  sharp  cone,  1*2  blunt  cone 
J  *  i  turbulent,  J  ■  2  laminar 
K  *  1  w  ith  blowing,  K  *  2  without  blowing 
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Turbulent  Flow  Calculations 


The  flow  properties  needed  for  the  computation  of  skin  friction 
and  induced  drag  are  determined  from  subroutine  inputs  by  the  fallowing 
relationships: 


0.5C  T  , 

w  wi  =  8  +  0.  099  M  (  Y-  1.  0) 

- . -  e 


M  the  reference  enthalpy  h*  5  H10.0  Btu/lbm.  control  passes  to 

statement  21,  where  T*  is  set  equal  to  3.  5964  h*.  If  h*  >  1110,  * 

Btu/lbm,  the  reference  temperature,  T*t  la  defined  in  the  following  manner: 


h  *  C  T 
e  p  e 
e 


h* 


■  0.  5  + 


h*  -  (h*/h  ) 
c 


TEM  ■  P  /2116.0 
e 


If  TEM  >  10,  then  TEM  ■  10. 0 


X*  * 


3  2 

mi 

II  *  0  JJ*0 


A!*3  *  U  ♦  4JJ 


If  the  value  of  T*  <  0.  0,  control  pastes  to  EXIT.  For  positive  or 
aero  T*,  the  remaining  reference  flow  properties  are  defined: 


*  32, 2 


2.27  x  1Q-W,S 
T*  +  198. 6 


t  *  [,0  *  01, 125  log^  (Pe/2116.^J 


1-362 


. . I 


-  mv  '  ■  NIHM4''  Nil  umm  tlWNfm  m  n  ff HUgmiWl  IW 


iWl'Illllllllllii  h  II  iul 


Zt  =  2.  5  +  0.  1  tan  h  (^~Q  -  7.  0)  +  0. 4  tan  h  (  ~  -  7.  0) 


+  tan  h  ( 


2500. 


-  5.8) 


j3  *  *  39. 65  (  e  ) 


2116.0  z  T* 

T 


If  L,  sharp  cone  slant  length,  is  less  than  2.  0  feet: 


A1 18  "  4*4666 


Ai  19  =  156.0 


A120=  '665-° 


If  L  >  2. 0  feet 


A! 18  =  !§o  A400  +  II  L 


II 


6 

2 

11*0 

6 


A,  *  2  A  L 

119  rt=n  407  +  II 


II 


A120  u  =  0  A414+IIL 


II 


These  coefficients  are  used  to  evaluate  the  quantity  TEM2,  which  is  used  in 
conjunction  with  REYSTA  to  define  the  sharp  cone  skin  friction  drag 
coefficient,  CDFINF{1,  1,  2) 
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IPWMWW'  "hi  i'  *1  i'i<iiiii^|<iwylHl|WWli*iwW11  www'i 


■I7WT 

TEM2  =  A120  +  logl()(  yU*  )  | _ A1 19  +  A1 18  log10  (  yU  * 


*  V 

p  e  L 

REYSTA  =  Rey  =  /  - - 


CFO  =  Cf  *  0.37  (1.  15) 


[iog  10  (Rey*L)J  2' 


CDFINF(  1,  1,  2)  a  C. 


ah,  turb,  no  blowing 


*  0.5  (0.852) 


*  V 


V  tan  6  TEM2 


Correcting  the  akin  friction  Cp  for  blowing  we  obtain 

r  ™i s  8  n 

CDFINFU,  1,  1)  *  CDFINIF(1.1,  2)  /  1.0+  - ■  ■  ■  ■  | 

L  P  e  e 

and,  in  addition,  for  bluntneaa  effects  with  blowing 


X  <  0.32 


CDFINFU,  1,  1)  =  CDFINF(lf  1,  l)Q.O  -  (0.  80  +  0.  052  M 


bl,  turb,  w. b. 


X>  0.32 


CDFINFU,  1,  1)  ■  CDFINFU,  i.  D  (0.744  -  0.  1664  M  ) 


bl,  turb,  w. b. 
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. - . . 


Using  these  results,  the  turbulent  blunt,  no  blowing  C_  is  determined 


from 


CDFINF(  2,  1,  2)  *  CDFINFU,  1,  1>  * 


CDFINFU,  1,  2) 
CDFINFU,  1,1) 


Next,  the  induced  drag  coefficient,  which  for  turbulent  flow  consists 

only  of  the  induced  pressure  drag  coefficient,  Is  computed.  First, 

is  set  equal  to  ,  the  non-dimensional  wall  enthalpy;  however,  if  no 

mass  loss  calculations  have  been  performed,  H  is  undefined  and 

w 

is  set  to  (0,  24  T  /  33,  86).  The  recovery  enthalpy  is  calculated, 

as  H  8  0,9  h  /RT  ,  for  use  in  ratio  the  ratio  h„r/  h  and  TEM  is 
r  s  o  W  r 

defined  as  (p  V  C,  ) 

<r  e  e  f» 

Using  the  above,  to  find  induced  effects 


DTHE1  *  A  ®j  « 


fo  (2.0+  i*8  +  1.0  . 

3.8  ~TEM  1.0  +  1.2  B  8/TEM 


h  h 

DTHE2  “  A  6  «  A«,  (0. 547 +  M  (0.53  +  0.68  ) 

2  1  h  e  h 


+  M  2  (0.083  +  0.  106  —  )  ) 
e  n 

r 


dthe  ■  Ae  *  Ae  +  1,6  "V  *  a 

3.6  p  v 
J  e  e 

CDLCDP  ■  Acn  -  1.11(1. 0  +  A2  cos  2  0)  A0  F,  T? 


D 


GDI  *  C  *  CDLCDP  * A  C 

DI  DP 


D, 


M 


'A*  o 


K 
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The  contribution  to  the  total  C  of  C  and  C 

I  f  «© 


CDSUM, 


is  defined  as  the  sum  of  the  turbulent  Induced  and  skin  friction  drag 

coefficient®,  L0PT  >  3,  or,  if  L0PT  <  3,  when  TIMER  *  TZTEST 

(no  fairing  ia  done  under  these  circumstances  representing  fully  turbulent 

flow).  If  L0PT  <  3  and  TIMER  <  TZTEST  the  contribution  of  ekin 

friction  and  induced  C^'s  is  a  value,  CDSUM,  faired  between  the  laminar 

and  turbulent  values.  The  components  of  the  following  fairing  equations 

are  defined  in  the  laminar  drag  calculations  of  this  subroutine,  and 

correspond  to  laminar  values  at  the  last  altitude  before  Z  becomes<Z  , 

X  K 


PBAR 


t  -  t  1.  5 

'  o.o - SIB) 

f°ZTR  *  5  *f 


c  *  c 

DI  DI 


P  +  (1.0  -  P)  c. 


LAM 


TURB 


*  p 


BL,  TURB.WB 


•BL,  LAM,  WB 

+  (1.0  -  P)  *  C, 


BL,  TURB,  WB 


*  P 


ni  nrtion  mq 
JLi!  I  U  KDf  IN  JO 


BL,  LAM,  NB 
+  (1.  0  -  P)  *  C, 
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Then  the  contribution  to  total  drag  is 


CDSUM  =  C  *  C  +  C 

SUM  I  f 


BL,  TURB,  WB 


Tests  of  T,  time  for  one  cycle,  are  made  with  quantities  TCRIT  and 
TEC0N  to  determine  whether  the  pressure  drag  component  of  total  drag 
coefficient  should  be  corrected  by  the  averaged  angle  of  attack  effect 
or 


by  the  ratio  (C_>  /  C  )  . 

Dp  Dp 

P«*  P<*  =  0 

If  TCRIT  <  T  or  if  TCRIT  >  T,  but  T  <  TEC0N,  then 


C  ®  total  drag  coefficient  =  C_  +  C  +  C 

D  °SUM  db  dp 


otherwise, 


C  *  C  +  +  C„ 

D  °SUM  °B  DP_ 


it  n,\  t  GRATE  % 

(1.0)  +  — -  ) 


«t*  0 

Then  the  return  to  the  calling  subroutine  is  executed. 

Laminar  Flow  Calculations 

The  ratio  of  reference  enthalpy  to  sharp  cone  edge  enthalpy 
is  computed  prior 
blowing  skin  friction  drag. 

HSTAHE 


h*/h  ,  is  computed  prior  to  evaluating  the  sharp  cone,  laminar,  no 
© 


C_  TW  2 

„JC»0.5  +  0.5  »  1-8  »  0.0935  (T  -  1.0)  1*. 

h«  CP  T. 

e 


CDFINF(  1,  2,  2)  »  CT 


sh,  LAM,  N.  B. 


1-367 


wilt'.:  mhiihmhw  im. 


111  M  I  *i  fl  t  . . .  . . 1  llIM  HIMIHNI  INlIhlll  llllMIIIH . . . 


4 


1,  53 
tan  8 


P_  Rey 

'm  L 


1.  5 


(  — £_> 
'  v 


h* 

h 


C«"p 
«L 

P  e 
e 

0.  2398  T 


0.  185 


) 


oo 


Correcting  for  the  effects  of  blowing 


CFO  =  Q 


1.  15  .  „ 

ttt  tan  0  c_ 

1.  53  D, 


00 


sh,  lam,  N.  B. 


jm  i 


D 

j 


V  ‘ 
e  e 


CDFINF(  1,  2,  1 )  *=  C_  «  r 

D  D 

••sh,  lam,  WB  1  oo  ah,  lam,  N.  B. 


1,0  +  _ 

*■  °  “i  ^  r 

A 

v  c 

e  fO 

and  then  for  bluntneie  with  blowing 

X  >  0.2  N  ■  472 

X  <  0.  2  N  *  457 


CDFINF(2,  2,  1)  3  C 


D, 


=  C 


D, 


bl,  LAM,  WB 


•hf  LAM.  WB 


L^-of-0  An  +  sjj  +  n  AJJa°gioRay^L» 


11 


and  without  blowing 
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i  *  Hid  Wi«i||itW*t 


CDFINF(2,  2,  2)  -  C. 


bl,  lam,  N.  B. 


=  CDFINF(2,  2.  1)  * 


CDFLMFU,  2,  2) 
CDFINF  (1,  2.  1) 


In  laminar  flow,  the  induced  drag  coefficient  ha6  three  components 
-  the  induced  pressure  (DELCDP),  pressure  induced  skin  friction 
(DECDFP),  an!  the  transverse  curvature  induced  (DECFTC)  components. 
These  are  determined  as  indicated  below  from  the  wall  and  recovery 
enthalpies  and  the  edge  properties; 

Hyy.  s  Hw  ,  or  if  no  mass  loss  is  being  calculated 

H  =  (0.24  T  )/33. 86 
w  wi-8 

h  =  0.9  h 

r  s 


TEM 


‘A  v« 


DTHE1  =Aej  *  C  f  2,0  mi= 

*0 '  TEM 


TEM  1.0  +  1.25  mi=g/TEM 


)  Hif?) 


DTHE2  •  A«2  .  Ae2  l  Amj  ♦  AM4  M  2  *  ^  .  A^,  *  A  M2  ♦ 

r 


h  (  A287  +  A  288  M  e  +  h  (  A  289  +  A290  M  e  1  1  )  ) 

T  T 


mi=8 


DTHE  =  A  e  =  +  — — - 

2  3-°/>«V‘ 
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DELCDP  *  A  CT  a  1.  33(1.  0  -  \2  cob2  6)  C  A  9  F  f~P  M 

°P  °P  'k  e 

A  =  o 


DECDFP  *  (  A  C  )  1. 5  A©{  1.  0  -XZ  cos2  6  )  C  F 

f  f  K 


sh,  lam,  N.  B. 


n  o-y-i  X  n  a*  w.  _  „  ,  0.438  M 
0,  823  +  0.  524  i  -  8  +  e 


0.  968 


DINF  =  =  0.  058  + 


Wi  =  8 


m: 


DEC  FTC  =  (Acn  )  *1.5  (0.  517  +  0.  913  +  0.  0484  m" 


((i  -  X2  cos2  e  |  Ae  cT 


sh,  lam.  N.  B. 


/  (M  tan  0  d—  pL  ) 

e  ™ 


C“-  CD  =ACd  *  (AS  »  *  <AC|>  » 

J  JJ  £ 


If  the  trajectory  option  code,  L0PT,  is  less  than  3,  the  quantities 
needed  for  the  fairing  equation  with  turbulent  flow  are  defined  as: 
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CFOZTFv  =  C  =  C 

°ZT A  °  LAM 

TZTR=  ‘z-ZTR 

TF  =  t  =  1.0  /  (0.48667  x  10”4  V  jsinJf  |) 
f  * 

CDILAM  =  CD 

1  LAM 

TZTEST  =  t^ZTR  +  tf 

If  L0PT  >  3,  the  above  definitions  are  bypassed.  Next  X  is  tested, 

if  >  X  control  passes  to  statement  33  where  the  equation  for  fairing 

-  ^LOW  r  - 

into  the  strong  interaction  flow  is  evaluated.  if  X  is  < 

indicating  fully  laminar  flow, the  angle  of  attack  cycle  time,  T,  is  tested 

against  TCRIT  and  TEC0N.  This  test  is  made  in  order  to  determine 

whether  the  angle  of  attack  effects  on  C  are  to  be  found  from  the 

UP 

averaged  effect  or  from  the  ratio  j  •  If  TCRIT  <  T, 

P*  P*=  o 

or  if  TCRIT  >  T,  but  T  <  TECON,  the  ratio  correction  i'i  used  and  the 
total  drag  coefficient  is  obtained  from 


CD  =  C 

D 


'B 


+  °D.  +  C 


D. 


bl,  lam,  WB 


before  returning  to  calling  subroutine. 
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If,  on  the  other  hand,  TCRIT  >  T,  but  T  >  TEC0N,  the  averaged 
effect  is  used  and  total  drag  coefficient  is 


CD  3  =  C„  +  C  +  CL 

D  D  D.  D, 

13  1  i 


+  c. 


D, 


(1.0  +  GRATE) 


00 


bl,  lam,  WB 
Then  the  return  to  calling  subroutine  is  executed. 


«*  =  0 


Statement  33  begins  the  evaluation  of  the  total  drag  coefficient  in 
the  fairing  region,  i.  e. 


CDLAM  =  C  =  CD  +  CD  +  CD  +  CD 

U  LAM  B  UI  P  f 


°°b  1,1am,  WB 

CD°  cD°c  ,  )  +  cD  ...0  - 

u  Us  ^LAM  XT  -XTrvi 


UP  LOW 


'  UP  LOW 


before  returning  to  the  calling  subroutine. 
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5.  Other  information 


A,  SUBROUTINE  DRAGC0  is  called  in  by  SUBROUTINE  VIXEN 
or  by  SUBROUTINE  DEREQ. 

B.  SUBROUTINE  DRAGCOcalls  the  library  functions 


1. 

EXIT 

2. 

DEXP 

3. 

DSIN 

4. 

DCOS 

5. 

DSQRT 

6. 

DLOG 

7. 

DL0G1O 

8. 

DTANH 

9. 

FDXPD 

10. 

FDXPI 
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1,8  Derivative*  of  the  Translational  Parameter* 


SUBROUTINE  TEQUAT  calculate*  the  derivative*  of  the 
translational  trajectory  parameters  with  the  assistance 
of  SUBROUTINE  MATMPY  which  perform*  matrix  mul¬ 
tiplication, 
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Purpose 

Subroutine  TEQUAT  calculates  the  derivatives  of  the  particle 
trajectory  parameters  and  of  the  thrusting  parameters  indicated  below: 

DER1V(1)  -  V 
DERIV(2)  =  Yp 

DERIV(3)  =  dt/dz  =  d(time)  /  d  (altitude) 

DERIV(4)  =  X 

r 

DERIV(  14)  =  Y 

r 

DERI  V(  15)  =  y 
DERIV(16)  * 

th 
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Name 

Symbol 

Occur/Noccur 

Number 

Source  of 

Input 

N 

De; 

ALPRIM 

a' 

003 

a  w  niroim 

£\ X  jr*.  Jl  J-j  |  kJ 

or  VIXEN 

inetantam 

AD  T?TT 
xilvili  J? 

aref 

001 

PRELIM 

inetantani1 

CAPG 

G 

019 

SR  2490  or 

READIT 

i 

gravitatid 

CD 

CD 

016 

DEREQ  or 

DRAGC® 

total  drag 

CN 

C 

n 

203 

p  onr*  a  rpir 

JR* A  *•  A  hE# 

normal  £o: 

FTMAT,  3 

fxt’  fyt’  fzt 

- 

MATMPY 

'C'  o  nip  o  m©  n 
syitem 

GAMF 

rt 

026 

DEREQ 

inetantane 

ISP 

XS.  P. 

222 

READIT 

input  epee 

M 

m 

037 

f%r%  tpf  fm  jr 
f^AAiJUIuKVA 

ina  tHHfitHW 

PHI 

* 

044 

DEREQ 

Eumv  AXjyjjjJ 

PSI 

H> 

045 

DEREQ 

Euler  angl 

PSIALP 

* 

a 

200 

DEREQ 

♦  K  1*11(1,1"  iHfl'IjR 

kill.  UDi  IJIAO 

QD 

qD 

051 

PRELIM 

dynamic  pi 

RE 

R 

e 

063 

SR24990  or 

READIT 

fAfltllM  fl 4  1 

X  JPSflt  1  (  j 

fjp  fW  fM 

A-y.  «  A  »,  g  1  « 

B  \  ZB 

3643- 

3645 

on  rr  w 

m  ,*%  JEl  Aj  AWA 

thru  §  ting  f 
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Description 

Units 

n  «  mip  niTD  trn 

Jt,  JL  i!|^i/  jpi  M*m  JEdtllnnjl 

:  VIXEN 

t 

Ins  tan  tan©  oue  angle  of  attack 

radians 

:lim 

instantaneous  reference  area  -  area  of  base 

f«2 

190  or 

PIT 

gravitational  acceleration  -  preset  32.  21852 

ft/ sec  2 

U  mw  A 

,EQ  or 
,GC0 

total  drag  coefficient  based  on  A 

ref 

. 

'ATE 

normal  force  coefficient 

rMPY 

components  of  body  force  in  trajectory  coordinate 
system 

lb. 

EQ 

instantaneous  flight  path  angle 

radians 

PIT 

input  specific  impulse  of  thrust 

sec, 

:lim 

instantaneous  mass  of  vehicle 

slug. 

!eq 

Euler  angle,  $ 

rad, 

EQ 

► 

Euler  angle, ^ 

rad. 

EQ 

thrust  misalignment  angle 

rad. 

LIM 

dynamic  pressure 

lb/ft2 

1990  or 

BIT 

radius  of  the  earth 

ft. 

LIM 

thrusting  force  components  in  body  coordinate  system 

llj# 

* 

. . .  a,,  ,  ,.^.M.i..^,J^J^^_T„r,.,r.  u-^-.,1.1.|.,|.||ffWn^rffl1..w,1||r||t^^^^  ., ,  ,,,.,■! ,  . . . . . . .,. . . . 


2,  Input  (Concl'd) 


Name 

Symbol 

Occur/Noccur 

Number 

Source  of 

Input 

F 

THEALP 

0 

a 

071 

DEREQ 

1 

i 

Euler  ang 

THINF 

Th 

213 

PRELIM 

thru*  ting  , 

T’HPXjf  A  'T  1 

X  X  JMLx*  X  f  mf 

Tx  ’  ty‘  tz 

T  T  T 

3565- 

3567 

MATMPY 

thrusting  . 

V 

V 

082 

npo  TTA 

velocity  1 

z 

z 

091 

DEREQ 

altitude 

3,  Output 

; 

CMAT,  9 

C  ,  C  ,  C  , 
xx  xy  xa 

m 

f 

matrix  foa; 

body  coori 

C  i  C  i  C  i 
yx  yy  y  a 

coordinate 

c  ,  c  ,  c 

l 

Kit  ax  zz 

DERIV,  16 

- 

derivative 

by  ADM4B 

\ 

FBMAT,  3 

F  ,  F  ,  F 
x„  v_ 

m 

componenj 

B  yB  B 

m  tr  M  l*Jli *1%  * 

®  j  b  (dm 

TBMAT,  3 

T  ,  T  »  T 
x_  y_  a_ 

3643- 

3645 

g*  a  mn  in  nin  ti  1 

B  JB  B 

system  j 

Description  Units 

Euler  angle,  @  radians 

thrusting  force  in  vacuum  lb. 

thrusting  force  components  in  trajectory  coordinate  system  lb. 

velocity  ft/ sec 

altitude  ft. 


matrix  for  converting  components  in 
body  coordinate  system  to  trajectory 
coordinate  system 


derivatives  of  the  16  quantities  being  integrated  • 

by  ADM4RK  see  VIXEN 

components  of  body  force  in  body  coordinate  lb. 

system 

components  of  thrusting  force  in  body  coordinate  lb 

system 
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4,  Numerical  Procedure 


The  subroutine  may  be  divided  into  three  main  sections:  (1) 
calculation  of  components  of  thrusting  force  in  trajectory  coordinate 
system,  (2)  calculation  of  body  force  components  in  trajectory  coordinate 
system,  (3)  calculation  of  the  derivatives. 

The  calcuiation  of  the  components  of  the  thrusting  force  begins 
with  the  evaluation  of  the  sines  and  cosines  of  the  Euler  angles  -  9  ,  W  , 

Q 

and  <f>.  The  nine  components  of  the  .3x3  C  matrix  for  converting 
components  in  a  body  coordinate  system  to  those  in  a  trajectory  coordinate 
system  are  then  defined  as  follows: 

C  =  CMAT(  1 ,1)  =  cos  9  cos  y 

xx  a 

C  ■  CMAT(2,  1)  =  cos  0  sin  W 
xy  a  ' 

C  *  CMAT(3,  1)  =  -  sin  9 
xz  a 

C  ■  CMAT(1,  2)  *  cosy  sin9  sin  0  -  sin  y  cos  0 

yx  r  a 

C  B  CMAT(2,  2)  *  sin  V*  sin  9  sin  0  +  cos  y  cos  0 
yy  a 

C  *  CMAT(3,  2)  »  cos  0  sir  0 

yz  a 

C  =  CMAT(  1,  3)  *  cos  y  Bin  0  cos  0  +  sin  ^  sin  0 

zx  a  r 

C  m  CMAT(2,  3)  *  sin  y  sin  0  cos  0  -  cos  'p  sin  0 

zy  a  r 

C  «  CMAT(3t3)  *  COB  0  cos  0 

zz  a 


't 


SUBROUTINE  MATMPY  is  called  in  to  multiply  the  conversion 
matrix,  CIvlAT,  by  the  components  of  the  thruBt  vector  in  the  body 
coordinate  system,  TBMAT,  to  obtain  the  components  of  the  thrust  vector 
in  the  trajectory  coordinate  system,  TTMAT. 

The  components  of  the  velocity  vector  in  the  body  coordinate 
system  are  then  determined  using  the  relations: 


C  V 
xx 


Y 


B 


a 


c  v 

yx 


C  V 
zx 


These  values  are  used  in  conjunction  with  the  calculated  values 
for  the  normal  force  and  for  the  axial  force  coefficient. 


F  *  C  a  A 
N  «  "d  ref 


C  *  ( ”C  +  c„  sin  at)  /  cos  a' 

X  UN 


to  calculate  the  components  of  the  body  forces  in  the  body  coordinate 
system  as  indicated  below: 


F  ■  FBMAT{  1)  B  q  A  _  C 

ref  x 

R00T  <=  ^  Yfi  + 


I  A 

If  R00T  <  1.  0  x  10  , 


set  5*  *  0.  0  and  F  *  0. 0; 

yB  ZB 


otherwise, 
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*  FBMATU)  =  -  Fn  <Yb  jj  ~l  +  Zfi2  ) 

=  FBMA1X3)  =  -  Fn(Z.b  /  ft  +  Z*  )  . 

SUBROUTINE  MATMPY  is  again  employed  using  FBMAT  and  the  conversion 
matrix,  CMAT,  as  input  to  obtain  the  components  of  the  body  forces  in 
the  trajectory  coordinate  system,  FTMAT. 

The  body  forces  and  thrusting  forces  are  then  used  in  the 
determination  of  the  trajectory' related  derivatives  using  the  following 
relations: 


PERIV(l)  =  V  =  -  qD  CD  Aref  -  G  (  _^e _  )28inT  + 

m  R  +  Z  F 

e 


m 


(— 

\R  + 


G  R 


«.  cos  Xf 

DERIVU)=rf  ■  ^  \  R  tz  (R  TY)1 

e  c 

DERIV{3)  =  j*-*  1.0  /  V  sin*, 
dz  £ 


DERIV(4)  *  X  e  cos  V  cos  Y 
r  a  f 


\  /F  +  T  V 

)  -  ( .It — 

mV 


R  +  Z 
e 


*  i  v  R 

DERI V(  14)  =  YrSaiara  *  cos  I {  _ e 


R  +  Z 
e 


DERIV(  1 5 )  =Yn  =  -(Fv  +  Tr  WtmVcosT  ) 


DERI V{  16)  *  W„„  *  - 

TH  i 


yT  yr 
Th 


sp 

These  values  are  then  transferred  to  the  calling  subroutine  as 
arguments  of  SUBR0UTINE  TEQUAT. 
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5.  Other  Information 

A.  SUBROUTINE  TEQUAT  is  called  by  SUBROUTINE  DEREQ. 

B.  SUBROUTINE  TEQUAT  calls  in  SUBROUTINE  MATMPY. 

C.  The  following  library  functions  are  utilized  by  SUBROUTINE 
TEQUAT: 

1.  DSIN 

2.  DC0S 

3.  DSQRT 


SUBROUTINE  MATMPY(A,  B,  C) 


3 

A.  =  5"~  B  x  C ,  for  i  =  1,  2, 3 

1  TTi  U  J 

The  inner  D<#  loop  performs  the  summation  in  j,  then  the  outer  D 0  loop 
changes  the  integer  i  to  obtain  the  value  for  for  each  i  to  replace  the 
initial  value  A,  =  0.  0. 

5,  Other  Information 

A.  SUBROUTINE  MATMPY  is  called  in  by  SUBROUTINE  TEQUAT. 

B.  SUBROUTINE  MATMPY  calls  in  no  other  subroutines  or 
internal  functions. 
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Wake  Calculation*! 


3,  Z 

SUBROUTINE  WAKE  perform*  preliminary  calculations 
utilized  by  subroutine  FLOWF  and  RCSEC.  SUBROUTINE 
FLOWF  perform,#  flow  field  calculations  and  uses  SUB¬ 
ROUTINE  AR2DIM  and  FUNCTION  AR3DIM  to  interpolate 
in,  2  and  3  dimensional  tables  respectively.  SUBROUTINE 
RCSEC  determines  the  peak  wake  radar  cross  section  and 
utilizes  SUBROUTINE  FIBl,  a  one  variable  Fibonacci  search 
which,  optimizes  FUNCTION  FUN1 ,  in  determining  the  wake 
length. 


SUBROUTINE  WAKE 


1.  Purpose 

SUBROUTINE  WAKE  calculates  some  quantities  needed  by 
SUBROUTINE  FLOWF  and  RCSEC,  then  calls  these  subroutine*  to  calculate 
the  vehicle  wake  length  and  cross  (section  at  each  of  three  radar  frequencies, 


2,  Input 

Unless  otherwise  specified,  all  number*  in  COMMON  LOCATION  refer  to 
positions  in  the  OCCUR  array,  See  part  5  for  tables  used. 


Common 

Source  of 

Name 

Location 

Input 

A,  514 

301-814 

ZPRS 

AREF 

001 

PREL.M 

BZ 

FRLTNK 

INTERP 

Bl 

FL0WF 

CD 

016 

DR  AGCO  or 
DEREQ 

CDB 

099 

DRAGCO 

CDI 

100 

DRAGC0 

CDP 

098 

DRAGCO 

\nt*  Mint 

017 

PRELIM 

D 

021 

PRELIM 

Description 

mmmmmmmmmmtrnmmmmmmmm 

preset  constants 

2 

reference  area,  ft 
scale  height  (1000  ft, ) 
exponential  decoy  constant  (I/meters) 
total  drag  coefficient 

base  drag:  coefficient 

total  induced  drag  coefficient 

pressure  drag  coefficient 

specific  heat  at  constant  pressure 
at  the  edge  of  boundary  layer  of 
sharp  cone,  Btu/lbm  -  °R 

bast  diameter  in  feet 


nun '  iiriLi  i  ■  mmm 


* 


* 


* 


I-M6 


* 


l 


wmmmm 


Z,  Input 

{Cont'd) 

Name 

Common 

location 

Source  ol 

Description 

ENET 

FL0WF 

transition  point  electron  density, e/c 

GAME 

0Z6 

VIXEN  or 
DEREQ 

flight  path  angle  in  radians 

ILUJp  Jw 

I0CCUR(314) 

ZREADX 

code  which  determines  unit#  of 
radar  cross  section,  see  ZREADX 

I0P,  90 

I0CCURU-9O) 

ZREADX 

option  parameter 

LFL0T 

I0CCUR(3Q2) 

VIXEN 

index  of  altitude  at  which  VIXEN 
has  just  produced  output 

ME 

036 

PRELIM 

Mach  number  at;  the  edge  of  the 
boundary  layer 

MINE 

035 

PRELIM  or 
VIXEN 

Mach  number  in  the  free  stream 

M0PT 

N0CCUR(Q3| 

READIT 

option  parameter 

MUINF 

034 

PRELIM 

free  stream  viscosity,  lbm/ft-aec 

PE 

048 

PRELIM 

pressure  at  edge  of  step  cone 
boundary  layer.  U»/flr 

PINF 

049 

PRELIM 

2 

free  stream  pressure,  lb /ft 

a  o'fAr 

061 

PRELIM 

density  at  the  edge  of  the  boundary 
layer,  Ibm/ft* 

RH0IN1 

056 

nn pi iy 
rtvLLllvl 

3 

free  stream  density  in  lbm/ft 

RNNX 

052 

DEREQ  or 
CHNTBL 

nose  radius,  same  as  Rn,  ft. 

* 

TE 

079 

PRELIM 

temperature  at  edge  of  >  sharp 
cone  boundary  Ijiyer,  R 
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2.  Input  (Concl'd) 


Name 

Common 

Location 

Source  of 
Input 

Description 

THETA 

076 

CHNTBL 

cone  half  angle,  radians. 

TINF 

072 

PRELIM 

free  stream  temperature,  R 

V 

082 

DEREQ  or 
VIXEN 

velocity,  ft/ sec 

V'E 

083 

PRELIM 

velocity  at  edge  of  sharp  cone 
boundary  layer,  ft/ sec 

WD0T 

086 

T0MAL0 

weight  loss  due  to  ablation,  lb/ sec 

XBAR 

090 

PRELIM 

interaction  parameter,/ 

XL0W 

238 

MAIN  or 
READIT 

the  value  of  X  which  it  the  upper 
limit  of  fully  laminar  flow  regime 

Z.NX 

091 

VIXEN  or 
DEREQ 

altitude,  same  as  Z,  ft. 

ZPLOT,  160 

FCCUR 

(161-320) 

VIXEN 

output  altitudes,  ft. 

ZTR 

092 

PRELIM 

transition  altitude,  ft. 

3,,  Output 

Name 

Common 

Block 

Description 

AMABLO 

FRLTNK 

mui  ablated  (lbm/iec) 

A  MB  LSD 

IT  ID  t  VKItf 

m  Jtai  A '»a  *» 

maaa 

swallowed  by  boundary  layer  (lbm/aec) 

AMINFC 

ro  V  iTKI  V 
r  IVJLi  AlilV 

cone  Mack  number 

AMU 

IT'Dl  TNlf 

JT  1%.  Li  i  A  *1* 

upstream  Mach  number 

1-388 
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3.  Output  (Cant'd) 


Name 

Common 

Block 

Description 

AMUU 

FELTNK 

lbm 

free  stream  viscosity,  -~~— 

ft.  -sec. 

BZ 

FRLTNK 

See  Input 

B 1 

See  Input 

CDTA 

FRLTNK 

2 

total  drag  times  area,  ft 

CDVA 

FRLTNK 

2 

viscous  drag  times  area,  ft 

Cl 

CRCSEC 

preset  constant 

C2 

CRCSEC 

preset  constant 

C3 

CRCSEC 

preset  constant 

C4 

CRCSEC 

preset  constant 

C5 

r*D  rcpr 

preset  constant 

DB 

FRLTNK 

base  diameter  (ft) 

DDW 

CRCSEC 

wake  diameter  (meters) 

ENET 

- 

See  Input 

F 

frequency  (cycles/ sec) 

GA  MMAL 

FRLTNK 

entry  angle  (rad) 

HINFC 

JP  JPV  Jiwi  A 1  "l 

2  2 

cone  enthalpy.  It  /sec 

UU 

nn 

altitude  (1000  ft,) 

HU 

FRLTNK 

2 

upstream  static  enthalpy,  ft  /sec 

rm 

CRCSEC 

look  angle  (degrees) 

1-389 


3.  Output  (Cont'd) 


I 


Common 

Name 

Block 

Description 

PICIPU 

FR  L  TNK 

ratio  of  cone  to  upstream  pressure 

PU 

FRLTNK 

2 

upstream  pressure  (Ib/ft  ) 

RH0IC 

FRLTNK 

3 

cone  density  (Ibrn/ft  ) 

RH0U 

FRLTNK 

3 

upstream  density  (lbm/ft  ) 

RN 

FRLTNK 

nose  radius  (ft) 

SC 

FRLTNK 

length  of  conical  frustum  (ft) 

SIGMBS 

CRCSEC 

noise  level  to  which  wake  length  is 
measured  (square  meters) 

TAU 

CRCSEC 

pulse  length  sec) 

THETAC 

FRLTNK 

cone  angle  (rad) 

UNIFC 

FRLTNK 

cone  velocity  (1000  ft /sec  ) 

uu 

FRLTNK 

upstream  velocity  (1000  ft/ sec) 

WLIP*  160 

PCCUR(1281) 

wake  length  at  radar  frequency  1,  meters 

WL2P,  160 

PCCURU441} 

wake  length  at  radar  frequency  Z,  meters 

WL3P,  160 

PCCUR(  1601) 

wake  length  at  radar  frequency  3,  meters 

WR1P,  160 

PCCUR(SOl) 

cross  section  at  rider  frequency  l, 
see  1DBL 

WR2P,  160 

PCCUR(961) 

cross  section  at  radar  frequency  l, 
see  IDBL 

WR3P,  160 

PCCUR(1121) 

cross  section  at  radar  frequency  3, 
see  IDBL 

XBZ 

•cale  height 

Z 

JT  A  Jaaf  X  •  ’1  gV 

altitude  (1000  ft)  1 
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3.  Output  (ConcEd) 

Common 

Name  Location 

ZBLT  FRLTNK 

ZME  CRCSEC 


Description 

boundary  layer  transition  altitude  (1000  ft) 
Mach  number  (upstream) 


4,  Numerical  Procedure 


WAKE  first  tests  IWPRNT,  If  IWPRNT  equals  zero,  the  WRITE 
statement  following  the  test  is  omitted  and  statement  10  is  executed.  If 
IWPRNT  equals  one,  the  WRITE  statement  is  executed  and  statement  10 
follows.  The  teat  at  10  determines  whether  the  conditions  are  satisfied 
to  permit  the  wake  length  and  cross  section  c  alculations  at  the  given  altitude. 
If  they  are,  control  passes  to  30.  If  they  are  not,  the  three  wake  lengths 
are  set  equal  to  zero  and  control  is  returned  to  VIXEN. 

At  30,  the  value  of  BZ  is  found  by  linear  interpolation  in  the  tables  of 
BETAZ  vs.  WKALT  at  the  altitude  ZPL0T. 

In  the  sequence  of  statements  beginning  at  30  and  ending  at  102, 
quantities  required  by  RCSEC  and  FL0WF  are  calculated.  After  102 
FL0WF  is  called  to  get  31  and  ENET  which  are  needed  by  RCSEC. 

The  next  two  statements  produce  printed  output,  if  IWPRNT  equals  one. 
Then,  if  IC>P(67)  plus  I0P(76)  equal  zero  go  to  40.  Otherwise,  the  next 
four  statements  calculate  quantities  needed  by  RCSEC  for  calculating  the 
vehicle  wake  length  and  cross  section  at  radar  frequency  one.  Next,  RCSEC 
is  called  to  perform  the  calculations,  if  WLIP  (LPL0T)  is  not  equal  to 
zero,  control  passes  to  35.  If  it  equals  zero,  set  WR1P  (LPL0T)  equal 
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to  zero,  then  change  it  to  one  if  IDBL  equals  four.  This  is  done  because 
it  may  be  necessary  to  plot  the  log  of  WRlP. 

At  35,  IDBL  equals  three,  WRlP  is  converted  to  decibels. 

The  sequence  of  statements  starting  at  40  and  ending  just  before 
50  provides  for  the  calculation  of  vehicle  wake  length  and  cross  section  at 
peak  frequency  three. 

At  50,  control  is  returned  to  VIXEN. 

5.  Other  Information 

A.  SUBROUTINE  WAKE  is  called  by  SUBROUTINE  VIXEN  only. 

B.  SUBROUTINE  WAKE  calls 

1.  SUBROUTINE  FL0WF 

2.  SUBROUTINE  RCSEC 

C.  SUBROUTINE  WAKE  calls  in  the  IBM  supplied  routine  DL  DG10. 

D.  Tables  of  10  values  each  used  in  this  subroutine  which  are  transmitted 
from  SUBROUTINE  ZREADX  through  labeled  common  CWAKE  are: 

BETAZ,  scale  height  (1000  ft) 

PHI1,  look  angle  for  first  radar  frequency  in  degrees 
PH12,  look  angle  for  second  radar  frequency  in  degrees 
PHI3,  look  angle  for  third  radar  frequency  in  degrees 

which  are  a  function  of  altitude,  WKALT. 
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SUBROUTINE  rLJWFHWET.nl,  IMP) 


1.  Purpoae 

SUBROUTINE  FL0WF  calculatea  the  electron  denalty  transition, 

n  (  e/cc)  and  the  decay  rate,  b.. 
et  » 


Description 


he  at  •  him  Id  conduc  tivity 
maw  a  ablated 

man  swallowed  by  boundary  layer 
cone  Mach,  number 
upw tream  hdaoh.  number 
free  stream  viscosity 

scale  height 
Healing  constant 
wealing  constant 
wealing  conwtant 
total  drag'  time*  area 
viscous  drag  timea  area 
keatsMeld  wpaciCic  heat 
preset  conwtanta 
preset  conatanta 
preset  conatanta 


Btu/ft  -  °R~Hr 

Ibm/sec 

lbm/sec 

lbm/(ft-sec) 
1000  ft. 


Btu/lb  -  °R 


nr lAviffli 
viiv  in*  tmiai.p  tsaitiw 


c.  input  ICont'd) 


i 


Name 

Symbol 

Source  of  Input 

\ 

C(83)  -  C(93) 

C83  "  C93 

7P1?  A  n  Y 
£j  JCvJl#  /iLr  A 

preset  coi 

CUOO) 

C100 

7DT Any 

preset  cor 

C(  1 15)  -  C(125) 

C115'C125 

ZREADX 

preset  cor 

i 

C(  130)  -  C{  136) 

C 130  “  C 1 36 

ZREADX 

1 

preset  cor 

C{  1 59) 

C 1 59 

ZREADX 

preset  cor 

C(  160) 

C 160 

ZREADX 

preset  cor 

C(  164) 

C164 

ZREADX 

preset  con 

C(165) 

C 16  5 

ZREADX 

preset  con 

C(  169) 

C 169 

ZREADX 

preset  con 

DB 

db 

WAKE 

base  diami 

DELWH 

JwH 

ZREADX 

heats  hie  Id 

DHCHEM 

^  ^chem 

ZREADX 

chemical  € 

GAMMAE 

WAKE 

entry  angli 

HINFC 

h<vjc 

WAKE 

cone  entha 

HU 

hu 

WAKE 

upstream  i 

IND 

WAKE 

IND  =  1:  i 

PICIPU 

P- 

"c 

P 

u 

WAKE 

IND  *1:  h 

Ratio  of  co 

i 

PU 

p 

u 

WAKE 

\ 

upstream , 

RH0 

A 

WAKE 

upstream  t 

I 

. » . . . .  «N 
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Description 


Unite 


L— » - I IT"  Til'" - .  I- -| I  ||  — | ,  . 

I  preset  constants 

k  preset  constants 

preset  constants 
preset  constants 
preset  constants 
preset  constants 
l  preset  constants 

,  preset  constants 

preset  constants 


base  diameter  ft 

heatshield  thickness  in< 

chemical  enthalpy  of  heatshield  ft2/aec2 

entry  angle  deg. 

cone  enthalpy  ft2/ sec 2 

upstream  static  enthalpy  ft2/sec2 


IND  *  1:  All  calculated  quantities  are  printed; 

IND  #  i ;  No  print  out 

Ratio  of  cone  to  upstream  pressure 

upstream  pressure  lb/ft2 

upstream  density  (identical  to  RH0U)  lbm/ft3 
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MW*k  ..... 


2.  Input  (Concl'd) 


i 


Nam® 

Symbol 

Source  of  Input 

'Di 

ERNUTB 

V  or  U 

*7  D  TT*  AHY 
£jt  t!\  XU  JSu 

velocity  arguna 

ETABL 

M 

ZREADX 

Table  of  M  v«, 

OCT ART 

h/RT 

o 

7or  an v 

£4  CV  *1i  1/  ■*% 

non-dimen®  low 

RSTABL 

Pu 

r  o 

* 7  D1  V*  AHY 

/L*  p  \ iKvf  JmJm/ 

aoo*dintension| 

T H TTftl 

1  iii  m  J.  nK  »»pf  iIwhI1 

e 

c 

ZREADX 

oone  angle  ,argi 

yhta  Pi  1 

#»4Lf  JLi  1-J 

rlf,o  (ATM) 

7or ahy 

£j.  JEa  .dni  JU  jtk 

«r  d.n.lty..rgj 

YD TAB L 

h/RT 

0 

ZREADX 

iWi/liip  fm  fflk  1  4  W  id  dBh  ■% f*  1 
•M? »  # ir.<» AX SUfiJt!  ©  .ill  Jj 

ZD TAB L 

M 

RAT 

ZREADX 

argument  in  Ta 
rate  to  the  mil 

1 
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Description 


iput 

Ummmm* 

VX 

h  y* 

Sr  A 

»x 

fX 

IV 
/  A 

)X 

)X 

)X 


r 

I 


I 


I 

I 


p 


velocity  argument  in  Table  F 

Table  of  Mvi,  M  and  0  {Table  £} 
c  c 

non-dimensional  enthalpy,  argument  in  Table  B 

non-dimensional  density,  argument  in  Table  B 

cone  angle , argument  in  Table  E  {cone  half  angle) 

air  density,  argument  in  Table  D 

nor  mall  red  enthalpy  .argument  in  Table  D 

argument  in  Table  D,  the  ratio  of  ablated  mass  los 
rate  to  the  mass  loss  rate  in  the  boundary  layer 


I«* 


1 


3. 


Name 

Symbol 

AI 

A 

1 

ARE 

K_ 

lli 

AKV 

K 

AMBLDS 

”*bl 

AMNDS 

m* 

N 

A  MR  AT 

M 

rat 

AMS 

M 

s 

AMSS2D 

m*X  S2 

AM2 

m2 

AM2C 

M2C 

B1 

bl 

B5 

N 

B 1 1 

bll 

ta  i  « 

JO  H#  U 

b35 

CDSS2A 

CDIS2 

ENBL 

N 

Of 

5L 

ENEBL 

n 

eBL 

ENEN 

n 

en 

ENEQH 

n  eQH 

Description  Units 

additive  term  for  second  entropy  layer 
shock  angle 

Gf  ,  fac  tor 
khem 

heating  constant 

mass  flow  boundary  layer  lbm/sec 

mass  flow  nose  lom/aec 

ratio  ablation  to  boundary  layer  air 
mass  flow 

Mach  number  shoulder 

mas6  flow  2nd  entropy  layer  lbm/sec 

mass  number  2nd  entropy  layer  lbm/sec 

Mach  number  cone  -  2nd  entropy  layer 

decay  rate 

net  scaling  factor 

electron  decay  rate  factor 

nsrn  factor 

2 

drag  times  area  for  2nd  entropy  ft 

layer 

number  of  electrons  leaving  boundary  e/sec 

layer 

electron  density  in  the  boundary  layer  e/cc 
electron  density  at  the  neck  e/cc 

equilibrium  electron  density  e/cc 
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3.  Output  (Cont'd) 


Name 

Symbol 

Description 

Units 

ENERN 

n  „ 
eRN 

electron  density  at  the  nose  cap 

e/cc 

ENET 

n 

et 

transition  electron  density 

e/cc 

ENSRN 

N 

SRN 

number  of  electrons  e  at  shoulder 

e/ cc 

ENRN 

nrn 

number  of  electrons  produced  by 
nose  cap 

e/cc 

ENS 

N 

s 

number  of  electrons  entering  wake 
neck 

e/cc 

GT 

Gt 

function  aero 

GTCHEM 

Gtchem 

function  chemical 

HC 

h 

c 

enthalpy  cone 

2  2 
ft  /sec 

HN 

h 

Q 

enthalpy  neck 

f  2,  2 
ft  /sec 

HNIHS 

HS 

h  /H 

n  s 

h 

8 

ratio  neck  enthalpy  to  total  shoulder 

enthalpy,  H  =h  +  U^/2 

8  9 

enthalpy  shoulder 

ft2/sec2 

HW 

h 

w 

enthalpy  wall 

ft2/sec2 

H2 

h2 

enthalpy  2nd  entropy  layer 

ft2/ sec  2 

H2C 

h2C 

enthalpy  cone  -  2nd  entropy  layer 

ft2/sec2 

PC 

P 

c 

pressure  cone 

lb/ft2 

P2C 

p*c 

pressure  cone  -  2nd  entropy  layer 

lb/ft2 
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3,  Output  (Cont'd) 


Name 

Symbol 

Description 

Units 

RES 

R 

es 

Reynolds  number  shoulder 

REUD 

R 

eud 

Reynolds  number  upstream 

RETS 

R  A 

eos 

shoulder  Reynolds  number  based  on  theta 

RH0C 

fc 

density  cone 

lbm/ft3 

RH0S 

fis 

density  shoulder 

lbm/ ft3 

RH02 

n 

density  2nd  entropy  layer 

lbm/ft3 

RH02C 

fie 

density  cone  -  2nd  entropy  layer 

3 

lbm/ft 

SC  HEM 

^chem 

chemical  length 

ft. 

SR  AT 

S 

rat 

ratio  boundary  swallowing  to  nose 
mass  flow 

THTBLS 

6 

ELS 

initial  wake  momentum  thickness  based 
on  shoulder  conditions 

ft. 

THETSI 

0 

S*<5 

shock  angle  universal 

deg. 

THETSS 

0* 

S 

shoulder  wake  momentum  thickness 

ft. 

THETS2 

9S2 

shock  angle  max. 

deg. 

THTS2B 

^2 

average  shock  angle  for  second  entropy 
layer 

rad. 

TW 

T 

W 

temperature  wall 

°K 

TWC 

T 

WC 

temperature  wall  cone 

°K 

TWSP 

T 

WSP 

temperature  wall  sphere 

°K 
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3.  Output  (concl'd) 


Name 

Symbol 

Description 

Units 

UC 

U 

c 

velocity  cone 

1000ft/  sec 

US 

U 

s 

v  elocity  shoulder 

1000ft/ sec 

U2 

U2 

velocity  of  second  entropy  layer 

1000  ft/ sec 

U2C 

U2C 

velocity  cone  -  2nd  entropy  layer 

1000  ft/sec 
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4 .  Numerical  Procedure 

The  Fortran  listing  of  SUBROUTINE  FLQlWF  is  numbered  in 
the  following  manner:  At  the  end  of  each  line  is  written  FL0WF  i 
where  i  refers  to  the  number  of  each  line. 

The  actual  calculations  of  this  subroutine  begin  on  line  185. 
The  following  is  a  line  by  line  account  of  the  equations  calculated  in 
the  subroutine. 


Lines  185,  186 


R 


eud 


K 

v 


IC  U  sin  X 
w  u _ v  e 

? w  ^  f  w  <j  wH 


Lines  187  -  197 


T 

wc  * 


f 


'59 


278  + 


C60(Kv  Z) 


f*  e  Z/>, 


1/2 


l 


,  2  . 

sin  9 


if  Z  >  Z 


BL1 


if  Z  <  Z 

E 
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Line  198  -  199 


WSP 


278  + 


c59 

C..(K  Z) 

60  v 

„  n  i/2  fzTip  ) 

K  D  e 

w  B 


3/2 


U 


u 


& 


WH 


Line  200 


m* 


BL  =  S’lS  +  ^ 


ABL 


Lines  201  -  204 


ABL  ’ 


T  * 
W 


Twc! 


V  T 

V  WSP  ’ 


( TAB L  -  TWCand  2RN<-"DB)or  (TAB L  5 

and  2Rn  > .  99  D 

2Rn  <  .99  Db  .nd  Twc  <  Tabl 
2Rn  >.99  Db  and  Twsp  < 


Lines  205,  206 

hw  •  1.087(  104)  Tw 

CDI  S2A  =  cnTA'  cdva 
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WSP 

) 


HHHW  Nluni'1'  Hi 1 


t 


Lines  207  -  211 


The  subroutine  prints  out  the  quantities:  R  .  K  ,  T  T 

eud  v  WC  ’  WSP’ 

m*BL'  TW  ’  hW’  ^D£S2^  ^  su^rout^ne  argument  IND  equals  1. 


Line  212 


m* 


M 


ABL 


RAT 


m*. 


BL 


Lines  213-217 


84“'1(m 


■)  if 


u 


a>  c 


ft  a 

Stw 


19 


1/2. 


P  -i  '  1 

oo  c  13 

P  “7 
u  -J  J 


if  P 

u 


11 

>  6 


Lines  218  -  226  evaluate  the  following  group  of  equations: 


9  ■  Max  (ft  ,  ft  ) 

S*o  '  S*o  ’  C 


m*r  S2  =  2000 _pu  Uu  R2n  CO.2  0 


SM 


u,  ■  u 

2c  u 


500  p  U  C  C,A 
J u  u 


m* 


r  «2 
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I  1  .until 


1  tmw  n  •  M<Hi4ii>i^m-4HHiiMiii  iimiiii  inw  iiiiiiitiiitptnHi>Hnii|mN'Hiii  ii»ii|  iiiiiiiiriiMiiiiiiii'iiiiiriii''rniiii'irii  i  ri"ri  '  firr;n  n mi  mi  m  mm  in  uniimiin  i  mm  i inm inn  ww»j(i(iiiiti>wwiw^  iiiiini  irirni rrr 


U  *  Max  (U  ,  1) 
2c  2c 


Ax  =  .  286  +  1.029  M 


0  ,  =  sin 

S  Ct 


:  [■  ■  (W‘] 


/ 

1/2" 

\ 

(± 

Aj,  +  (2,  86  +  A^) 

lMU 

2 

/ 

s2 


Maxid^,  9c) 


8  *  .5  <8  +  8  ) 

s2  s2  soo 


b35  =  C1 19  Uu 


'120 


Lines  227-231 


The  subroutine  prints  out  the  quantities:  M„  8  ,  rn*  . 

RAT  bm  X  *2 

U2c’AI'  8.2’  8'.2 '  b3S  “  IND“- 


Line  232 

“*N  -  CU6  J>a  uu 

Lines  233  -  236 


1  “  ^BLS  >  ™*N 


S_  .  _  * 

RAT 


m* 


BLS 


m*. 


“  “*BLS  <  WN 


N 
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Line  237 


Using  and  V  in  SUBROUTINE  AR2DIM,  this  line  interpolates 
linearly  in  the  Equilibrium  Normal  Shock  Electron  Density  Table  to  obtain 


Lines  238  -  241  determine  the  following  quantities: 

(30. 48)3  m*N  SRAT  „eRN 


(7  M  sin2  0  ,  -  1)  P 
u  s2  u 


h  P,_(P__  +  6P  ) 
u  2C  2C  u 


P  (6P,_  +  P  ) 
u  2C  u 


0  (6  P,r  +  P  ) 
f  2c  *  J- - ^ - - 


P,  +  6P 
2C  u 


Lines  242-254 


If  nt  bls  ^  >  t*ie  following  quantities  are  defined. 


A  =/>. 


h  •  h 

c  eoc 


P  =  P 

c  oo  c 


U  =  U 

c  eoc 


f  2C 


chem 


jc _ mTS2  + 


U  m* 

2C  BLS 


SJ^BLS  ' 

U«C  “*BLS 


1-407 
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If  m* 


r  C7 


>  m*BLS  ,  the  following  quantities  are  defined. 


PcCPlC 

h  a  h 
c  2C 

P  *  P 


2C 


U  =  Uir 

c  2C 


chem 


Ac117  ScAtBLS 

U2C  fc*£S2 


Lines  255  -  257 

C 


N 


122 


nrn 


RN  Schem'  C121  6 


C  Ns  ^che 


j] 


SRN 


m*M  +  C.  _  S  N  T 
N  123  chem  RN  W 


'124 


Lines  258-262 


The  subroutine  prints  out  the  quantities: 

mV  SRAT'  neRN*  NRN'  P2C*  h2C'  J^C  ’  -^C  i£  IND  =  1 


Lines  263  -  269 

Pc  hc 

n  depends  on  -4r-  ,  7-r- 
«QH  HTo 

one  of  the  following  tables: 

TABLE  B  if  M 


RAT 


=  0 


TABLE  D 


1 


umrat  =0-01 


TABLE  D. 


TABLE  D, 


*  ^RAT 


=  0.  1 


if  .  _  =  1.0 

RAT 


M_  and  is  interpolated  from 
RAT 


by  using  FUNCTION  AR3DIM  and  SUBROUTINE  AR2DIM. 


. . 
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Line  a  27C-271 


n  _ .  =  n  _  |  1 

eBL  eQH 


[■ 


(  ^22  ^chenp 


a  ]  [ 


b„,  +  b„,,  (  „ „ 

21  23  '  22 


Uc  ‘  22  I 

22  U 


Line  272 


N 


(3°'48>  "eBL^BL 


BL 


t 


* 


Lines  273  -  111 


The  subroutine  prints  out  the  quantities: 

h  >  P  »  U  ,  S  ,  N  ■  ,  N  ,  n  ,  N  if  IND  =  1 

c  c  C  chem  SRN  eQH  e  BL  BL 


Lines  278  -  280 


N  -  N  +  N 
s  *  BL  SRN 


M.  „  = 


u?_  M 

2C  u 
U 

u 


1/2 


<  it  ) 

h2C 


M2C=  Max(M2C,l) 


Lines  281-282 

depends  on  M.^,  1®  °btained  by  using  the  linear 

interpolation  SUBROUTINE  AR2DIM  in  Table  E. 


Line  283 


# 


Mm  depends  on  M, 


c*  c 

interpolation  SUBROUTINE  AR2DIM  on  Table  E. 

Lines  284 - 29 1  compute  the  values: 

.2  -,2.5 


8  and  is  obtained  by  using  the  linear 


=  J^C 


h- 


U. 


P^2M^c  T 

|_l+.2M^  J 

[i  + . 2  M2  1 

iTTTdf6] 


U  M 
*oc 


M 


MC 


1/2 


JV  / 


2C 


1  +  .  2  M 


1  +  .  2  M 


2C 

m 


2.5 


( 


1  +  .  2  M 


2C 


h2  3  h2 r  '  y 

2  ZC  1  +  .  2  M2 


U2  = 


U2C  M2 


M 


2C 


1/2 


% 


* 
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t 


Lines  292-301 


M  =  M, 


/a=fc 


h  =  h„ 


U  = 

S 


if  m*  ,  >  m*_ 

BLS  -  IS2 


M  =  M„ 
s  2 

fs~f  2 


h  =  h 
s  2 


U  =  U 
s  2 


if  Al*  <  mift 

BLS  XS2 


Line  302 


P  M  R  C,,n 
J  b  s  eud  169 

P  M 
J  u  u 


fel 


Lines  303-307 


The  subroutine  prints  out  the  quantities: 

Ns'  M2C’  M2*  JVh2’U2'MB*f  s  ifIND=1 


Lines  308-312 


1/4  -3/8 

Cs  “  C164  +  C165  8in  (ec)Res  M8 
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h  =  h  +  C 
n  w  s 


[w-5<‘»6>  u»] 


A  b 


chem 


2  h 

h  in  -  n 


n  b 


2h  +  lo6  u2 

8  8 


0  N  h 
J  a  s  e 


eN  (30.48)3  ni«nT  h 
BL  n 


Lines  313-317 

The  subroutine  prints  out  the  quantities: 

h  ,  U  ,  R  ,  h  ,  h  /  H  ,  N  ,  n  „  if  IND  -  1 
s  s  es  n  n  s  s  eN 

Line  318 


|~CDTA  J»uj 

Liirf,  J 


1/2 


U 

u 

U 


Lines  319-323 


0BLS  if  m*BLS  >  ml(,JS2 


Ai*Tc,  CDIS2A 
3 “ - > 

2TL  rfBLS 


i/2  r  1 

u 

u 
U 


il  m*IS2  >  m.BLS 
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Line  324 


e9  • 


8*  R 

8  eg 

db 


Lines  325-329 


-1 


1- 


bnU  '  h~  > 


L  200  ’  C9a/.,:u.  \„  <*  ♦  \/Hs) 


if  Z  > 


0  if  Z  <  Z 


BLT 


Line*  330  -  335  compute  the  parameters 


b  =  C 
5  S3 


"85 


'87 


1  +  C84  MRAT  +  C86  MRAT  +  C88  ( ^ 


bll  ‘C91  +  C92  MRAT 


0.  125 

V  «,Lcm*  ■>.!<%?■> 

%6  ..  2 


•] 


10  U  8 

a  BLS 


*  “2  7.5  11028)  P  C 

K  *  (8  )  .  - J  • 


100 


e  ■ 


*N 


Line  a  336  -  340 


The  subroutine  prints  out  the  quantities: 

®BLS*  R.*.'  Gf  V  bll*  bl*  K.  UUiDm  1 


Line*  341  -  344 


Gt, 


chem 


|l  + 


n 


4  So  h.  K.  / . So. 


-1 


z  >  z 


B  JblT 


^chem 


1  if  Z  <  Z 


BLT 


Line*  345  -  348 


134 


'133 


10 


n  3 
et 


«"  u  G134 
8  8 


l  - 


exp 


(~  'hJ  (C135  +  Cl36^hJ 


'130 


+  C 


131 


U  |  Cl32)) 

n  / 


,27 


+  *- 11(10  »/.S00+“eN  Gtch.m 


Line*  349  -  352 

The  eubroutine  print*  out  the  quantities: 


Gt  ,  n  if  IND  *  1 
Schem  «t 


Line*  353-355 

The  return  to  the  calling  subroutine  is  accomplished. 


1-4  U 


\ 


JLi'Ii 

W1 


|  ■ 
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t  5.  Other  Information 

A.  SUBROUTINE  FL0WF  is  called  by  SUBROUTINE  WAKE. 

B.  SUBROUTINE  FL0WF  calls  in  SUBROUTINE  AR2DIM  and 
FUNCTION  AR3DIM. 

C.  The  following  internal  functions  are  called: 

1,  DEXP 

2,  DSIN 

3,  DC0TAN 

4,  DARSIN 

5,  DMAX 

p 


t 
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TABLE  D 


» 


ELECTRON  DENSITY  AS  A  FUNCTION  OF 
NORMALIZED  ENTHALPY  AND  AIR  DENSITY 

FOR  1000  ppm  SODIUM  SEED,  mrat  o.o 

(  h  J 

'  nr  V — r  •  p/p0\ 

(  R1o  ) 


h  / 

K~0 

y/  p  V0|atmI 

Creiter 

than 

0.1 

0.1 

0.03 

0.01 

Lcsk  Chan  IS 

0.0 

0.0 

0.0 

0.0 

O.C 

15 

0. 70x10* 

0.30x10* 

0.32x)02 

0.¥5xl02 

O.-JOxlO2 

20 

0.38x10* 

0.  38x10* 

0. J  2xl04 

0. 30x1 04 

0. 30xl04 

40 

0.32xl010 

0.32x10*° 

0.11x10*° 

0.20xl09 

O.iOxlO9 

60 

0.25xl0J2 

0.25xl012 

0.78x10** 

0.05x10** 

0.05x10** 

80 

0. 32xl013 

0.32x10** 

0. 10x10** 

0.14xl0*2 

0.14xl0*2 

100 

0.17xl014 

0.17xl014 

0.65x10** 

0.20x10** 

0.20x10** 

120 

C.34xl014 

0.84xl0*4 

0.31xl0*4 

0.78x10** 

0.78x10** 

140 

0.24x10** 

0.24x10** 

0. 87x101* 

0.22xl014 

0. 22xl014 

160 

0.44xl015 

0.44x10** 

O.lbxlO** 

0. 38xl014 

0. 38xl0*4 

Greater  than  160 

0.44x10** 

0.44x10** 

0.16x10** 

0. 38xl0*4 

0. 38xl0*4 

% 
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TABLE  0 


0 


\ 


ELECTRON  DENSITY  AS  A  FUNCTION  OF 
NORMALIZED  ENTHALPY  AND  AIR  DENSITY 
FOR  1000  ppm  SODIUM  SEED,  mkat  ■  0.01 


Idea  rons/ccl 


^''XS/,V0  IatmI 

”o 

Creator 

than 

0.1 

0.1 

0.03 

0.01 

Lees 

than 

0.J1 

Less  than  IS 

0.U 

0.0 

0.0 

0.0 

0.0 

IS 

l.OxlO5 

l.OxlO5 

5.3x10* 

2.0x10* 

2.0x10* 

20 

3.5xl07 

3.5xl07 

1.9xl07 

7.Uxl06 

7.0xl06 

40 

2.0xl0n 

2.0xl0J1 

l.lxlO11 

4.0xl010 

4.0xl030 

60 

1.3xl012 

1.3xl012 

2.3X1011 

1.6x10** 

l.OxlO11 

80 

2.0x10* 2 

2.0x10* 2 

4.3xlOn 

2.0x10** 

2.0x10** 

100 

4.5xl012 

4.Sxl012 

2.0x10* 2 

6.0xl0,] 

6.0x10** 

120 

1.4xl013 

1.4xl013 

S.OxlO12 

1.4xl012 

1.4xl012 

140 

2.4  4 

2.4  A 

9.0xl0*2 

2.0  ♦ 

2.0  1 

160 

3.0  * 

3.0  1 

1.3xl013 

3.0  * 

3.0  < 

greater  than  160 

4.0xl013 

4.0xl013 

2. 5xl013 

4.0xl012 

4.Oxl012 
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TABLE  D 


TABLE  D 

ELECTRON  DENSITY  AS  A  FUNCTION  OF 
NORMALIZED  ENTHALPY  AND  AIR  DENSITY 
FOR  1000  ppm  SODIUM  SEED,  mra1  «-  1.0 

«  n.  1  - ,  p//>  j  (electrons/ccl 


\  aVo  UlM' 

Greater 

h  \ 

than 

.. _ 

0.1 

«To 

Lees  Chan  15  0.0  0.0 

15  7.9x10®  7.9x10® 

20  2. 3x10®  2.3x10® 

40  2.0xl012  2.0xl0*2 

60  1.8x10*3  1.8xl013 

80  6.0x10*3  6.0xl013 

100  1.4x10* 4  1.4xl014 

120  1.3  1.3 

140  1.2  1.2 

160  1.5  1.5  j 

greater  than  160  2.0xl014  2.0xl014 


0.0 

5.2x10® 

1.5x10® 

1.3xl012 

S.OxlO12 

3.0x10*® 

5.7  I' 
5.2 

4.7 
5.0  1 
6.0xl013 


1.7x10®  1.7x10® 

S.OxlO7  S.OxlO7 

4.3x10**  4.3x10** 

2.5xl012  2.3xl0*2 

1.1x10* 3  l.lxlO13 


2 . 0x10*  3  2.0xl013 


. . . . 


TABLE  E 


FUNCTION  AR3DIM  (D,  N20,  M20,  NlQ,  ROW,  H.  EM.  XYZTBL) 


1.  Purpose 


FUNCTION  AR3DIM  is  the  result  of  a  table  look-up  employing  linear 
interpolation  to  determine  the  value  of  a  dependent  variable  which  is  a 
function  of  three  independent  variables,  i.  e.  f(X,  Y,  Z) 


2.  Input 

♦indicates  integer  quantity 


Name 


D(N20,  M20,  N10) 
EM 


H 


M20  * 
N10  * 

N20  * 

ROW 


XYZTBL  (11,  3) 


:  . 


WJM .  i  ifiliV;,: 


Description 
the  dependent  variable  table 


the  value  of  the  independent  variable  Z  for  which 
f  is  desired 


the  value  of  the  independent  variable  Y  for  which 
f Is  desired 


the  number  of  Y  values  used  in  forming  the  table 

the  number  of  Z  values  used  in  forming  the  table 

the  number  of  X  values  used  in  forming  the  table 

the  value  of  the  independent  variable  X  for  which 
f  is  desired 


the  table  containing  the  three  independent  variables; 
the  second  integer  indicates  the  related  independent 
variable  in  the  following  manners 

1  indicates  X  tabular  values 

2  indicates  Y  tabular  values 

3  indicates  Z  tabular  values 
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AR3D1M 


the  value  of  the  dependent  variable  I  resulting 
from  3  dimensional  linear  Interpolation 


4,  Numerical  Procedure 

FUNCTION  AR3DIM  utilises  a  D0  loop  to  te*t  the  value*  in  the 
XYZTBUK,  3)  array,  Z  tabular  value*,  starting  with  the  second  value  until 
it  reach**  the  first  value  which  either  exceed*  or  equals  'the  input  EM#  the 
specified  Z  value,  Thi*  value  Is  XYZTBLU,  3).  If  this  criterion  is  not 
satisfied,  the  last  value  in  the  array  is  used  as  the  appropriate  value  in 
subsequent  calculations. 

SUBROUTINE  AR2D1M  Is  caller!  for  the  <1*11  value  In  the  table  of  Z 
values  to  interpolate  for  the  value  of  f  at  the  specified  X  and  Yi  this  is 
called  ANSI,  SUBROUTINE  AR2DIM  it  called  in  a  second  time  to  potform 
the  flam*  function  for  'the  1th  value  'in  the  table  of  Z  values;  this  result  is 

t 1  j'i,  1 1  js.  i1'-  1  ■ 

designated  ANSI,  Those  quantities  are  then  used  to  define  AR3DIM  from 
the  Mlowtng  equation: 


AR3D1M  ■ 


ANS)( 


LI- 1,3) 


A,  FUNCTION  AR3DIM  is  utSllaed  by  SUBROUTINE  FL0WF, 

B,  FUNCTION  AR3DIM  calls  SUBROUTINE  AR2DIM. 
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I.  Purpose 


SUBROUTINE  AR2DIM  performs  a  linear  interpolation  in  a  two* 
dimeaa tonal  table  lor  Z  a«  a  function  o£  X  and  Y. 


2.  InPut 

♦  indicates  integer  quantity 


Name 


Deecr  lotion 


XTB(N) 


YTB(Nt) 

ETB<M,N) 


number  of  Y  value*  ueed  in  forming  the  table 

number  of  X  value*  used  in  forming;  the  table 

the  value  of  the  first  independent  variable  for 
which  the  value  of  Z  U  desired 

tabular  valuer  of  the  independent  variable  X 

the  value  of'  the  second  independent  variable  for 
which  the  value  of  Z  is  desired 

tabular  values  of  the  independent  variable  t 

tabular  values  of  the  dependent  variable#  Z 


the  value'  of  the  dependant  variable  Z  at  the  point 
X,  Y  Obtained  by  a  double  linear  inteepolatthii  lit 
the  table  Of  ZTB  as  function  of  XTB  and  tW 


array  starting  with  the  aetond  value  until  It  reaches  the  first  Oni  which  ilthe 
equals  or  exceeds  the  Input  vet m  X.  This  appropriate  X#  V*We  XTBU+ 1) 
together  with  the  ff loading  tabular  value  XTB(I)  is  thii  used  #  define 

the  quantity  P£ 


* 


I  N 

p’,  X  .  XTB(I) _ 

Z  XTB(I+ 1)  -  XTB(I) 

An  Identical  procedure  is  undertaken  with  the  Y  variable  and  the  YTB  table 
In  order  to'  define 


P  .  I  :  ytb(J> 

1  YTB(J+1>  -  YTB(J) 

These  «pantltiea  'are  then  used  in  the  calculation  of  2  from  the  equation 

Z  ■  ( l,  0  -  Pj  -  P2  ♦  Pj  *  P2)  ZTB(  J,  IJ  +  (P2  -  PA  *  P2>  ZTB(  J,  1+  1) 
♦  <Pj  -  Pj*P2)*  ZTB(J+1,I)  +  Pt*  P2*ZTB(J+1,  I+l) 

r  Ml  Si  AH 

**  awHM! . mSXBmM 

A.  SUBROUTINE  ARZOIM  la  called  from  FUNCTION  AR3D1M. 

. •:  1  "  'I  ,  i1. ■  f  lr! 

B.  SUBROUTINE  AR2DIM  call*  no  other  subprograms. 


RCCEC 


1.  Purpose 

To  compute  radar  cross  section  and  pulse  shapes  from  the 
given  observing  radar  and  the  transition  point  electron  density  of 
the  vehicle  and  also  compute  wake  length. 


Source  of  Input 


Symb 


D  i 

bi 

SUBROUTINE  WAKE 

ZNET 

SUBROUTINE  WAKE 

N0PT* 

NOPT 

SUBROUTINE  WAKE 

t 

F 

f 

SUBROUTINE  WAKE 

TAU 

T 

SUBROUTINE  WAKE 

SIGMDS 

^MDS 

SUBROUTINE  WAKE 

PHI 

f 

SUBROUTINE  WAKE 

XBZ 

B 

% 

SUBROUTINE  WAKE 

ZME 

M 

e 

SUBROUTINE  WAKE 

HH 

h 

SUBROUTINE  WAKE 

DDW 

D 

w 

SUBROUTINE  WAKE 

Cl 

SN* 

ci 

SUBROUTINE  WAKE 

JrS 

w  '*5* 

fm 

Ve 

m 

SUBROUTINE  WAKE 

CJ 

am 

w 

SUBROUTINE  WAKE 

C4 

c« 

SUBROUTINE  WAKE 

f!*t 

w  *P 

B  2ER«2 

C5 

bo 

SUBROUTINE  WAKE 

SUBROUTINE  WAKE 

BA 

b2 

SUBROUTINE  ZREADX 

;  v,iwi  ;•■>!  rf:j. 

■ 


:■  "  r-it..;;  i 
ii!  .■  ■  i  '(f "I'iii  .!  ■!. 

■  '  'I;  i  'l-’li-l  . 

SvrM  - 


■  .  !':• 

i  1,1 ;  ■  i', 


exponential  dei 
transition  poin 


N0PT  *  0,  co 
NOPT  *  1,  c 
frequency 


pulse  length 


noise  level  to 

/ 

look  aiigle 


scale  height 
Mach  number  ( 
altitude 
wake  diameter 

i riTMit  irihtk'HiAtlft 

input  cons  tunt 
input  constant 
input  cons 'tint 
input  constant 

nr jill no  (*nnitAi! 

p  v  saaaiig  %  a# §iP »» *9»fj 

scaling  con  scan 


iiii 


■?  .'.if « i 


, 


Hm 

. . . 


■  ■■■  i  s \  %  ■  ... . 

. .  .  . . - . . . . . . .  . _ . . . . . . . 


Description 


Description 


Units 


scaling  constant 

dimensionless 

scaling  constant 

dimensionless 

scaling  constant 

dimensionless 

step  .In  .axial  coordinate 

meters 

sea  level  collision  frequency 

'CPS 

transition  electron  density  when  non-linear 

production  terms  .are  considered  in  turbulent  wake 

mice 

.additional  ACS  due  to  consideration  on  non-linear' 

production  terms  in  turbulent  wake 

(meters)^ 

2  body  overdense  length 

meters 

station  where  linear  production  terms  first 

dominate  the  non-linear  production  terms 

meter® 

1MD2  *  #;  no  output  generated  'by  this  routine 
KND2  *  If  Intermediate  steps  'printed  out 

dimensionless 

mairitYi^rr.  nntnK^y  Of  steps  USOd  to 

wake  length 

j.i,  ;;u: 1 

dimins  ionle  s  s 

; :'1  •  t  'ify]!::;  'v;  •  "  j*;.;  ; 

I’!'1  r 

'|!il 
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Name 


Symbol 


Source  of  Input 


D« 


Bi 

bl 

SUBROUTINE  WAKE 

exponential 

ZNET 

SUBROUTINE  WAKE 

transition  pi 

N0PT* 

N0PT 

SUBROUTINE  WAKE 

NOPT  »  0,  ( 

~"-i\ 

F 

f 

SUBROUTINE  WAKE 

frequency 

TAU 

'IT 

SUBROUTINE  WAKE 

pulse  lepg th 

SIGNERS 

^MDS 

■SUBROUTINE  WAKE 

noibe  llewdl  ! 

/ 

PttL 

<t> 

SUBROUTINE  WAKE 

/ 

leak  angle 

XBZ 

B 

s 

subroutine  wake 

scale  height 

iseimr*. 

M 

* 

SUBROUTINE  WAKE 

Mach  nurabe 

HH 

li 

SUBROUTINE  WAKi 

altitude 

DDW 

D 

*r 

SUBROUTINE  «lR 

wake  diamei 

Cl 

«c„ 

SUBROUTINE  WAKE 

*"1 

input  conetaj 

G2 

c, 

ill# 

SUBROUTINE  WAKE 

input  const  a 

CJ 

s 

SUBROUTINE  WAKE 

input  const* 

C4 

C4 

u 

iSUBROWHNtt  WAKE 

input  consta 

lb*#1 

S 

SUBROUTINE  WAKE 

input  const  a 

BZER® 

" 

subroutine  wake 

•calling  con^ 

||  "f 

'**1 

SUBROUTINE  ZREADX 

scaling  cans 

Description 


2,  Input  (Coat'd) 


i 


Name 

Symbol 

Source  of  Input 

D®  fiC  I*  If! 

'S3  O  Vf  A*  Al 

B3 

b3 

SUBROUTINE  ZREADX 

scaling  const 

BTWEN 

b?.o 

SUBROUTINE  ZREADX 

scaling  const 

B24 

b24 

SUBRuO  TINE  ZREADX 

scaling  cons} 

DX 

Ax 

SUBROUTINE  ZREADX 

step  in  axiali 

ZNUS 

9  SL 

SUBROUTINE  ZREADX 

sea  level  coll 

CNE 

NET 

SUBROUTINE  ZREADX 

transition  ele 

production  te 

DSB 

Aff'aa 

SUBROUTINE  ZREADX 

additional  RC 

production  te 

X2B0D 

X2B0D 

SUBROUTINE  ZREADX 

2  body  overd' 

X3B 

x„0 

3B 

SUBROUTINE  ZREADX 

station  wher« 

dominate  the 

1ND2* 

IND2 

SUBROUTINE  ZREADX 

II#2  *  Oj  no 
IND2  *  1;  int 

NSTWL 

SUBROUTINE  ZREADX 

maximum  nu: 

Description 


Units 


1 


scaling  constant 

dimensionless 

scaling  constant 

dimensionless 

scaling  constant 

dimensionless 

step  in  axial  coordinate 

meters 

sea  level  collision  frequency 

f 

CPS 

transition  electron  density  when  non-linear 

production  terms  are  considered  in  turbulent  wake 

e/cc 

additional  RCS  due  to  consideration  on  non-linear 

production  terms  in  turbulent  wake 

(meters)^ 

2  body  over  dense  length 

meters 

station  where  linear  production  terms  first 
dominate  the  non-linear  production  terms 

meters 

IMM  *  0;  no  Output  generated  by  this  routine 

IND2  *  1;  intermediate  steps  printed  out 

dimensionless 

dumber  off  Stipe  used  to  compute 
wake  length 

dimensionless 

Symbol 


Units 


4,  Numerical  Procedure 


Compute  ^  *  atmospheric  density 

-  h_ 

BZ 


^  *  R0  *  e 

Compute  *  electron  density  at  which  plasma  becomes  overdense 


7(  tCR-  ZNCR  *  £  I  +  {  Jjjl  }J 


C* 


Compute  X  «  transition  pt,  onset  of  overdense  region 


C,  C 

X4  ■  XTT  «  — -  (1  -  -4-  »  +  CA 
t  {  HC3  4 


Teat  on  ft  If  f  *  0. 0,  change  to  0. 01 

Jf  #  >  90. 0,  change  to  100. 0  -  + 


Compute  X^  ■  onset  ol  constant  multiple  scattering  region 


X®D  ■ 


X0D  ■  X2B0D 


*1 

nf  '  1 


i  X2B0D  >  X3B 


(  X2B00  <  X3B 


Compute  Xfop  which  replaces  X0D  in  aU  equations 
XODP  -  X0D;  X0D  >  0 
X0DP  ■  0. 0;  X0D  <0 


Compute 


XSS  =  pt' 

XSS  =  ~ 
bl 


of  onset  of  single  scattering 

[»[fe  ” 


region 


Compute  Xgsp  which  replaces  XSS  in  all  equations 


XSSP  =  Xgs  ;  XSS  0 
XSSP  *  0  ;  XSS  <  0 


Compute 


^SS  *  of  distance  to  XSS  and  the  range  resolution 

LSS  *  CLSS  *  minimum  of  (  ~x  10  )and  X 

\2  cos  0  /  SSP 


Compute  D  *  ®  surface 
w 

Dw*  *  DWST  * 


scattering  correction  term  for  base  diameter 

"  (K  bM  Dw>3  1 

L  2«i»2*  +  (Kb24Dw)3 


where  K  *  2lt£Z  x  109 


CCOttPOt#  XMS  •  pt.  «4  onset  of  variable  multiple  scattering  region 


XMS  ■  X0DP; 


XMS 


2 

bl  b20 


b20 

In 


Compute 


Compute 


XMSP  *  XMS;  XMS  >  X0DP 
XMSP  =  X0DP;  XMS  <  X0DP 
XLM0D  *  MAXIMUM  { XMSP,  X0DF) 

j 

XLMSD  *  MINIMUM  (XLM0O,  ) 


LMS  *  amalleat  of  h<af  th«  length  from  X0DP  to  XMSP  or  half  of 
the  range  resolution  minus  X0DP 

LMS  ■  XL  MS  =  0.  XMSP  <  X0DP 


XLMS  -  MINIMUM  ( j  -  X0DP)  ,  j  (XMSP  -  X0DP)  ) 

BT  *  radar  cross  section 
P 


Intermediate  steps  t 


130t 


-b.  L0D  *  b.  LSS  -b.  - 

r  ■  a  r  g  .  *  4  m  .  .  •  CO#  ^ 

1  ¥  m  •  “j  • 


™“’  * [h*>  V  f*.  *  *j>  "17“*" 


♦  LMSDw* 


c 


Oo'-r*  D«4 

0  IQ8  w 

D.1] 


b3 


sin2# 


10* 


(.  b  i22i> 

1  I  cos#' 


E  .  .I-*!1** 


(T  «  SIGP  *  TRMl  +  4^7 

P  l 


E, 


+  2  D  * 
w 


.  .  i  k  „  4 

^  (  a  )  D 

°  108  w 


D  *  b2  < 


(±  ,  d2 
2  108  '»■ 


J|.t  *7  -b.b2QLMSD 

W  (»  2 


'2-b20> 


b.  b_„ 

1  20 


bl  b20 


L  \ 
SS  I 


Kn  I*  0 
20 


SIGP  -  TRMl  +  °w  ,in2 


i  'Jb- 

VcR 


8 

)  E, 


+  0 


jpi 2  2  g# 

b  ( i  fj 
■¥  » 

r,+bi«^i»o*3 


(LSS-LMSD)  .In1*# 


b20-° 


If  N0PT  ■  0,  return  to  calling  program  (WAKE) 

If  N#PT  *  l,  compute  wake  length  (WAKEL) 

Compute  wake  length 

1 

The  &  VB*  x  curv®  h**  k  maximum  or  peak  and  la  a  mono  tonic  aUy 
increasing  and  decreasing  curve  for  X  <  XPEAK  and  X  >  XPEAK 
respectively.  Therefcse,  starting  at  Xt,  and  increasing  X  by  4x,  SIG 
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IWpray . . 

•■elf. . 


Using  the  values  of  X  on  either  side  of  the  peak  as  arguments,  the  subroutine 
FIB  I  is  called  to  determine  exact  IT  peak  and  corresponding  XPEAK. 

If  (TPEAK  s  WAKELis  set  to  0,  0  and  control  is  returned 

to  the  calling  subroutine  WAKE,  Otherwise,  routine  starts  at  XPEAK 
and  moves  along  in  steps  of  A  X,  computing  O”  for  each  X,  until 
&  <  CTyug  <  It  then  calls  subroutine  FIB1  using  as  arguments  the  value 
of  X  Just  found  and  the  previous  value,  to  determine  X^ 

WAKEL  ■  XNL  -  XPEAK 

RETURN  TO  CALLING  PROGRAM  WAKE 


A.  SUBROUTINE  RCSEC  is  called  by  SUBROUTINE  WAKE 

B.  SUBROUTINE  RCSEC  calls  in  function  FUN1  and 
SUBROUTINE  FIB1 

C.  SUBROUTINE  RCSEC  calls  ft*  library  functions 
1.  OSIN 

1  DC0S 

3,  DL0C 

4,  DMIN1 

5.  DMAX1 

6.  OEXP 


SUBROUTINE  FIB  1  (AA,  BB,  NF,  N  MI  MAX,  ACCUR,  NFUNC. 

X  MI  MAX,  YMIMAXE 


1.  Purpose 

SUBROUTINE  FIB  I  utlizes  a  Fibonacci  search  technique  to  find  the 
maximum  or  minimum  of  a  one  variable  unimodal  function  within  a  defined 
region  (AA.BB). 


2,  Input 

'  mm  i 


♦indicates  integer  quantity 

Name 

Source  of 

Input 

Description 

AA 

RCSEC 

one  boundary  of  the  defined  region  within 
which  search  will  take  place 

ACCUR 

RCSEC 

desired  accuracy 

BB 

RCSEC 

one  boundary  Of  the  defined  region  within  which 
search  will  take  place 

FUN1 

Function  FUN1 

the  value  of  the  function  being  optimised  at  'the 
current  evaluation  point  within  the  Search 
interval 

NF 

RCSEC* 

code  number  of  the  function  to  be  Optimised 

NFUNC 

RCSEC* 

the  number  of  values  of  the  function  to  be 
utilised  in  the  optimisation 

NMIMAX 

RCSEC* 

integer  codes  value  of  +1  calls  for  maximising 
calculations  value  of  -1  calls  for  minimisation 

‘i 


ij 


3.  Output 


Name 

NF* 

XL 

X  MI  MAX 
XR 

YMIMAX 


Description 
see  input 


the  smaller  of  the  two  evaulation  points  within  the 
current  search  interval  (A,B) 

the  optimum  value  of  independent  variable 


the  larger  of  the  two  evaluation  points  within  the 
current  search  interval  (A,  B) 

X  MI  MAX  value  of  independent  variable 


4*  Numi8*ica3  Procedure 


SUBROUTINE  FIB  I  is  a  duplicate  of  SUBROUTINE  MiMAX  with 
'the  following  emceptions: 


<1)  where  MIMAX  calls  in  FUNCTION  F MIMAX,  F»t  call* 
instead  FUNCTION  FUNl  at  locations  foUowing  statements  SO, 
60.  80,  120,  and  MO. 

(2)  the  common  block  END  containing  the  variable  XTERM 
is  not  used  in  Fill 

(3)  1TERM  Is  set  equal  ta  sero  at  the  beginning  of  FIB  l 

(4)  the  Fibonacci  number  E  is  dimensioned  for  40  elements  In 
FIB1  instead  of  the  100  elements  specified  in  IflMAX 


M» 


— . . . 
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s.  Other  Information 

A.  SUBROUTINE  FIB l  ie  called  by  SUBROUTINE  RCSEC  only, 

B.  SUBROUTINE  FIB1  call*  FUNCTION  FUN1. 

C.  SUBROUTINE  FIB1  call*  the  IBM  routine*  D'SQRT  and  FOXPI 
(exponentiation) . 


FUNCTION  FUN1 


1.  Purpoae: 

To  cowipute  pulse  shape-  radar  return  as  a  function  of  distance 
heWni  the  leading  edge  of  the  radar  pulse. 


' ' 1  , 

•  '  Ml  !i .  •  ; 

"  '  1  i ['  '|-  •  ' 

I*  i 


.  ''I  ■  [.(■  ,iV  )  'Vfi  ■  '*  ■  jJ  , 

'  ,  ■  "  ' '!  lH,.nlM  •  1  „j  >'  !|J,.;  I;  •' 


'jvllljji:  jl'iiijn;,)  |j 
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2.  Input 


Name 

Symbol 

Source  of  Input 

- ^ 

XX 

X 

SUBROUTINE  RCSEC 

axial  coordi 

N* 

N 

SUBROUTINE  RCSEC 

N  =  1;  a  j 

N  =  2;  =  ( 

XTT 

xt 

SUBROUTINE  RCSEC 

i 

transition  p< 

WS1 

150t 
cos  </> 

SUBROUTINE  RCSEC 

range  re  soli 

X0DP 

X0DP 

SUBROUTINE  RCSEC 

see  RCSEC 

DWST 

D  * 
w 

SUBROUTINE  RCSEC 

surface  scat 

SPH2 

.  2 
sin  <p 

SUBROUTINE  RCSEC 

intermediat« 

XLMS 

L 

ms 

SUBROUTINE  RCSEC 

mi  n  —  IPi  /""•fS  fB*/"* 

XMSP 

X 

msp 

SUBROUTINE  RCSEC 

see  RCSEC 

XSSP 

X 

ssp 

SUBROUTINE  RCSEC 

see  RCSEC 

Bl 

*1 

1  2 

SUBROUTINE  RCSEC 

exponential  c 

ZCR2 

?eCR 

SUBROUTINE  RCSEC 

inter  medial! 

3 

2CR4 

4 

,1*L  j 
?( eCR 

SUBROUTINE  RCSEC 

in  bW  r  rnou-i&TC 

XB20 

b  „ 

20 

SUBROUTINE  RCSEC 

scaling:  cons' 

DWBST1 

(Bw*  sin20)/b1 

SUBROUTINE  RCSEC 

intermediate 

SPH4 

4 

sin  <p 

SUBROUTINE  RCSEC 

inter  median 

: ,  : ,  i  ■ 

r  ;j  '  j,  ,  ,,,  l‘!;'  ; : j 

l 

1 

1 
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J'l'l  "  '  .  1  M  '  "  !  "  :■  '  :i-,  >1  1 1 '  1 :  '!'  !  '1  i  “?S'i 

Description 


Units 


:sec 

axial  coordinate 

meters 

r-cirr 

N  *  1;  =  SIG 

N  =  2;  =  (SIGMDS  -  SIG)2 

dimensionless 

:sec 

transition  point  onset  of  overdense  region 

meters 

;sec 

range  resolution 

A  sec. 

SSEC 

see  RCSEC 

meters 

SSEC 

surface  scattering  correction  term  for  base  diameter 

meters 

:sec 

intermediate  calculation 

dimensionless 

see  RCSEC 

meters 

:sec 

see  RCSEC 

meters 

CSEC 

see  RCSEC 

meters 

-SEC 

exponential  decay  constant 

1/ meters 

Jf*  flj'fw  m 

I 

intermediate  calculation 

dimensionless 

CSEC 

| 

intermediate  eslctdstloa 

dimensionless 

1, 

CSEC 

scaling  constant 

dimensionless 

intermediate  calculation  dimensionless 

intermediate  calculation  dimensionless 


Name 


Symbol 


Source  of' Input 


BU 

b 

0 

SUBROUTINE  RCSEC 

■  canm 

DDW 

D 

w 

SUBROUTINE  RCSEC 

wake  diameter 

SIGMDS 

;  ct’mds 

SUBROUTINE  RCSEC 

noise  level  to  ^ 

WS4 

„  b 

|M«t  j  20 

>?eCR 

SUBROUTINE  RCSEC 

< 

i 

intermediate  c 

IND2* 

INEZ 

SUBROUTINE  RCSEC 

,IN0  a  *  P(  no  < 

IND2  »  1;  lute 

fisiid® 

,  1  i  il  If  •  iJi: 

F  UN  I 

o'  :  For  N  *  1 

For  N«2 

:n  „  < 

""  ,!  "j  ,  ’  •  1  i  ll  '  ,  . 

,^ull  ^j|||  iipi  h*p* 

Description 


Units 


scaling  constant 

wik»  diameter  ■  base  diameter 

noise  level  to  wMcb  wake  length  is  measured 

intermediate'  calculation 

IWOi  ■  Oj  no  'Output  generated 

IMD2  ■  It  Intermediate  eteps  printed  out 


pulse  ahape 


dimensionleat 

meters 

(meters)2 

dimensionless 

dimensionless 


(meters)2 


r 


4‘  Numerical  Description 

Given  a  value  of  X,  compute  FUN1  where 
FUN1  =*o-  N  =  1 

FUN1  =  (tmds  -  ^  •  N=2 

and  ir  =  <r^  +tr2  +  ^3  +  ^4 

Compute  Y^  *  region  affected  by  overdense  scattering 
*  Y1  ■  minimum  of  the  following: 


2.  X. 


3.  {X  -  X  ) 

T 

4*  X  +  Xrtno  +  ~i  -  X 
T  ©DP  COS  0 


Compute  <r  j  *  portion  of  pulse  shape  due  to  overdense  return 
<r.  »  S1G1  *  0  :  (X  -  X  )  «  0 

1  T 

B  o  f  r  (x  -  x  »  -  *2SLt  -  j 

*»  T  cos  0 


*  YjDJ  sin%.  (X-X  )IO 


(X-  X 


Compute  Y2  *  region  affected  by  first  part  of  multiple  scattering 
Y2  *  Y2  *  minimum  of  the  followings 


2  L 

ms 

2  Bftt 

■  COS'  f 

3*  (X  -  XJ  -  XAu 


Compute  <r2  *  portion  of  pul«e  shape  due  to  constant  portion  of 
multiple  scattering  region 


<r,  ■  SIG2  -  0  *  (X  -  X  }  <  X 


©DP 

■  0  •  Hx  -  X  )  -  -  X  _  T  >  1 

L  t'  cos#  MSPJ 

‘  f  Y2Dw  #in2^:  {X‘V  X0DP 

and  Hx  -XI-  .  x 

LV  V  cos  #  AMSP 


']  > 


and  [{X  -  X  )  -  -  X, 

L  T  cos  #  1 


,]  5 


Compute  Yj  j  *  upper  limit  of  region  affected  by  second  part  of  multiple 
scattering 


Y  *  Y31  ■  X  -  —  -  X  t  £2Lt  <  fx  -  X  -  X 
31  cos#  r  cos#  LA  \  A| 


*  L 1  *  xt  *  xi 


Compute  Yj^,  *  lower  limit  of  region  affected,  by  second  par  of  multiple 

icittifbu 

YJZ*Y*.  x.*t  :  «  <  r*t*  *„) 


X  < 

[V  Wj 

X  »  ( 

[*t  *  Xsspj 

Compute  t|  *  portion  of  pwlee  shape  due  to  vatlebl*  portion  of'  multiple 
ifOOtMlpC  region 

*%  *  «»  *  «  s  (I*  X)  «  x 

*  '‘P^PePiipr' 

*°  ■  <* - v  » ♦  w 


. . Mi 


I  lull  |lll II II II I  lllll-ll* ■ll>l|l  II  l|l-j|  II  ||I||  ||  III  || 


HiHMtariMMivHa  mm 
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D  *  sin  A 
w  r 


)  (EXi  +  EX2),  +  ( Y32  -  Y3 , )  sin4  *  D 


o  w 


(X-X  )  >  X.,__ 
t  *  MSP 


IV-.Y  l  ^50t  ,  . 

''  "SSF 

b20  *  °*  0 


«J(Dw*  .in2#)(EXl 

L  H'* ''  "u" 


+  EX 2)  +  2  » 

tfeCR 


'20 


(1 


"blb«0  Y31 


bl  b20  Y32 


*  e 

(2  * 


1 


b .  ato  i 

o  r 


bi  b20 


m 

D  * 
mr 

•d 


wb*ff  EX  l  » 


r. 


\  ^  y 


-  f 


16 


EX2 


•  L 


>4b  T 
,B1  TJ1 


<X*Xt)  ?  XMSP 


* 

llf-ll*  1  #  I t-t.P  2,  j,  v  1 
1  V  -  xssp' 


f  0 

IQ1 


1  $*1  ittf 

— m**r  jlshirj 


■4bi  T» 


ll.&I  * 

^•CR 


3.  3  Miscellaneous 


H 

Miscellaneous  calculations  are  performed  by  subroutines 
POLCAL  and  MISC. 


x\ 

Ml 


SUBROUTINE  MISC(N,  X,  VAL) 


l.  Purpose 


4 


At  present  MISC  can  call  SUBROUTINE  FfcLCAL  to  calculate  the 
free  space  radar  cross  section  of  a  vehicle.  However,  the  first  three 
arguments  of  P0LCAL  have  been  generalised  so  that  any  three 
of  the  OCCUR  array  can  be  used.  It  calculates  the  elements  of  the  GD 
array  of  generalised  differences  between  up  to  twenty  pairs  of  elements 
of  the  OCCUR  array. 

M©C  is  intended,  in  general,  to  perform  any  tasks  which  do  not 
seem,  to  fit  readily  into  any  of  the  other  subroutines.  It  is  expected  to 
grow  lit  'the  future. 


Unless  otherwise  specified,  all  numbers  in  the  COMMON  LOCATION  refer 
to  positions  in  the  OCCUR  array. 


Description 


Unite 


coefficients  for  calculating  free  space  radar  cross  sections 

the  input  initial  bluntness  ratio  for  the  first  configuration  « 

the  input  initial  bluntness  ratio  for  the  second  configuration 

the  value  of  bluntness  ratio  just  before  shape  change 

the  input  initial  vehicle  axial  length  for  first  configuration  ft. 

the  input  initial  vehicle  axial  length  for  second  configuration  ft. 

the  value  of  axial  length  just  before  shape  change  ft. 

the  input  initial  value  of  base  radius  for  first  configuration  ft. 

the  input  initial  value  of  base  radius  for  second  configuration  ft. 

the  value  of  base  radius  just  before  shape  change  ft. 

the  input  initial  value  of  nose  radius  for  the  first  configuration  ft. 

the  input  initial  value  of  nose  radius  for  second  configuration  ft 

the  value  of  nose  radius  just  before  shape  change  ft. 

the  input  initial  half  cone  angle  for  the  first  configuration  degrees 

the  input  initial  half  cone  angle  for  second  configuration  degrees 

the  last  value  of  cone  half  angle  before  shape  change  degrees 

the  input  initial  weight  for  the  first  configuration  lb, 

the  input  initial  weight  for  the  second  configuration  lb, 

the  last  value  of  weight  before  shape  change  lb. 

miscellaneous  input  quantities 

altitude  at  which  vehicle  shape  change  occurs  ft. 

integer  option  codes 

input  integer  code  which  specifies  OCCUR  locations 
input  integer  code  which  specifies  OCCUR  locations 


3.  Output 


Name 

Common  Block 

Deicrlptlon 

ACDE 

PCCUR(  5881 ) 

See  Input 

DELRCS 

(JJCCUR  (3964) 

delta  of  free  ■pace  radar 
caroie  lection 

GD,  20 

0CCUR<3921  -  3940) 

gene ralUed  diffe react  • 

'  ','1  « 


4.  'Numerical  Procedure 


A*  *  •**!»',  MISC  t««ts  the  product  of  'the  seventh,  eight  and 

ninth  element*  of  the  IC#M  array.  If  thie  product  equal*  aero,  AMS  I* 

*•*  B<tu»l  *®  •**<»  and.  statement  40  I*  executed  next  If  the  product  l*  not 
equal  to  new,  the  six  statement •  starting  at  30  ns#  the  seventh,  eighth 
and  ninth  elements  of  the  IC#M  array  to  determine  which  three  element*  of 
the  OCCUR  array  will  be  used  as  the  first  three  arguments  of  P0LCAL. 

Then  POLCAL  in  called  to  calculate  the  free  space  radar  cross  section. 

At  40.  DKLRCS  1*  evaluated,  then  in  the  DO  loop  ending  at  1 1 1  the 
generalised  differences  between  specified  pairs  of  elements  in  the  OCCUR 
array  are  calculated,  and  these  values  are  saved  In  the  QD  array.  The 
lOOtl  and  IGDL  arrays  are  input  intsgers  which  specify  locations  in  the 
OCCUR  array.  If  an  element  of  either  of  these  array*  is  aero,  statement 
112  la  aitacuted  and  .no  more  differences  are  saved. 

The  four  statement*  following  statement  11  calculate  the  initial 
volume  of  the  vehicle  first  configuration.  Than  RAH#  (7)  is  defined 
**  *h*  *****  WWai  'weight  of  the  first,  configuration  to  this  eolame. 

Meat  ZTURN  is  tested  'lo  determine  whether  a  ehapa  change,  is 
expected.  If  not  control  passe*  m  200,  Otherwise,  VI,  the  initial, 
volume  of  the  second  configuration  Is  calculated  and  RATltfl)  is  defined 
at  the  ratio  of  tli  initial  input  weight  of  the  second  configuration  to  Hals 
volume,  Tho  next  ate  statements  subtract:  the  values  of  tin  vehicle 
characteristic*  just  before  shape  change  from  the  eovrecpmAtltg  values  of 
'those  chat aoterts ties  after  shape  change  and  store  these  differences  in 
the  MT  array.  The  six  statements  following  calculate  tho  corresponding 
ration  if  the  v«lue  of  Xlfir  or  L AMD IF  after  shape  change  la  not  sero  and. 
tavs  those  in  the  RATI#  array. 


W»2 


SUBROUTINE  P0LCAL(X,  Y.  Z.  NAX,  NAY,  NAP.  ITP,  AC0E,  ANS) 


I.  Purpose 

SUBROUTINE  P0LCAL  evaluates  the  polynomial 
NAZ  NAY  NAX  — 

ANS=  Z,  ZI  21  I  A((K-1)*  NAY*NAX  +  (J-1)*NAX  +  I) 
Pi  j^T  ITT  _ 

*X(MUY(J-1)*Z(K'1)1 

mm* 


2.  Input 

♦indicates  integer  quantity 


Name 

Source 

Description 

AC  v  itt  140 

MISC 

the  polynomial  coefficients  ,  A's 

ITP* 

MISC 

test  parameter 

NAX* 

MISC 

1  +  order  of  X  in  polynomial 

NAY* 

MISC 

1  +  order  of  Y  in  polynomial 

NAX* 

MISC 

1  +  order  of  Z  in  polynomial 

X 

MISC 

first  unknown  of  polynomial 

■  Y 

MISC 

second  unknown  of  polynomial 

Z 

MISC 

third  unknown  of  polynomial 

3*  gaicai 

Name 

ANS 

value  of  polynomial 

